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Foreword 


This  document  comprises  all  flowcharts  completed  by  the  date  of  publication  for 
Luminary  ID  programs,  routines,  and  subroutines.  (Reference  Exhibit  D,  Paragraph 
3.3,  of  M.I.T.  Statement  of  Work,  NAS  9-4065,  period  1 January  1968  - 30  June 
1970.) 

Those  flowcharts  not  completed  and  not  included  within  the  current  edition  are  denoted 
by  an  asterisk  on  the  table  of  contents.  As  they  become  available,  newly  completed 
flowcharts  will  be  forwarded  for  inclusion,  with  an  updated  contents  and  index. 
The  index  to  the  present  volume  is  an  alphabetical  listing  of  flag  bits,  subroutines, 
and  major  entries.  In  addition  to  the  flowchart  and  sheet  number  for  each  entry, 
the  index  gives  the  flowchart  and  sheet  number  where  each  flag  bit  is  set  (S),  cleared 
(C),  or  tested  (T). 


Jack  C.  Reed 
Group  Leader 
Apollo,  Documentation 
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1.0  INTRODUCTION 


INTRODUCTION 


1.  0 

By  Roberta  M,  Entes 

APOLLO  Guidance  and  Navigation  Flowcharts  presents  in  one  document  all 
flowcharts  completed  for  the  most  recent  release  of  the  LUMINARY  program.  The 
purpose  of  these  flowcharts  is  (1)  to  help  those  not  familiar  with  APOLLO  Guidance 
Computer  (AGO  coding  to  understand  and  follow  the  AGC  programs,  and  (2)  to 
present  a guide  to  the  listing  for  those  who  want  to  follow  the  program  coding  in 
close  detail. 

1.  1 ORGANIZATION 

The  entire  LUMINARY  program  has  been  divided  into  11  sections  according 
to  the  role  the  segment  of  coding  plays  with  respect  to  the  entire  mission.  Each 
section  has  a number  of  separate  flowcharts. 

The  sections  have  been  ordered  such  that  basic  system  programs  and  rou- 
tines are  presented  first  (Section  2.  0),  followed  by  general  routines  (Section  3.  0- 
7.  0),  Digital  Autopilot  (Section  8.  0),  and  then  major  modes  (Sections  9.  0-12.  0). 
Routines  appropriate  to  a particular  major  mode  are  usually  flowed  in  the  same  sec- 
tion as  the  major  mode.  Subsection  1.4  cross-references  routines,  major  modes, 
and  flowcharts. 

1.2  USER  INFORMATION 

A flowchart  is  a graphical  representation  of  a computer  program.  They  can 
be  used  for  a number  of  purposes.  For  example,  a programer  unfamiliar  with  a 
certain  area  of  coding  uses  flowcharts  as  an  aid  in  understanding  the  program;  a 
programer  updating  his  own  program  uses  flowcharts  because  they  show,  in  a con- 
venient form,  the  logic  of  the  present  program.  Each  of  the  following  program  func- 
tions has  a unique  symbol:  (1)  setting  and  clearing  (resetting)  of  flags;  (2)  channel 
operations;  (3)  external  subroutines  called;  (4)  displays  used;  and  (5)  restart 
protection.  Therefore  these  functions  are  found  easily  in  flowcharts  once  the  user  is 
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aware  of  symbol  usage.  (See  Subsection  1.  3 for  a complete  description  of  symbol 
usage. ) 

APOLLO  Guidance  and  Navigation  Flowcharts  are  used  for  flight  support 
training  to  train  instructors  and  to  prepare  training  manuals.  Engineers  use  flow- 
charts to  determine  program  requirements  when  reviewing  designs. 

During  flights,  APOLLO  Guidance  and  Navigation  Flowcharts  may  be  used 
to  help  explain  why  certain  things  are  occurring.  For  example,  because  alarms  and 
displays  have  a unique  symbol  in  flowcharts,  they  can  be  found  more  easily  in  flow- 
charts than  in  other  forms  of  documentation  or  in  the  listing. 

How  a flowchart  should  be  read  depends  on  why  the  flowcharts  is  being  used. 
Everyone  using  flowcharts  should  familiarize  himself  with  the  symbols  peculiar  to 
APOLLO  Guidance  and  Navigation  Flowcharts  (Subsection  1.  3)  and  with  the  Index 
(Section  1 3.  0). 

1.  3 SYMBOL  USAGE 

APOLLO  Guidance  and  Navigation  Flowchart  symbols  do  not  conform  to 
standard  usage  because  so  many  operations  and  functions  are  unique  to  the  AGC. 

Flowchart  symbols  represent  program  functions.  The  shape  of  the  symbol 
indicates  the  type  function.  Generally,  the  AGC  mneumonic  is  written  inside  the 
symbol,  and  comments  are  written  outside.  The  following  conventions  for  symbol 
shapes  are  used  in  APOLLO  Guidance  and  Navigation  Flowcharts: 

Symbols  of  this  shape  and  size  denote  the  name  of  an 
AGC  location,  i.  e. , a tag,  label,  or  entry. 

Symbols  of  the  above  shape,  but  drawn  with  a broken 
line,  denote  an  entry  point  that  does  not  have  a label 
or  tag. 

Squares  denote  bookkeeping  tasks,  such  as  manipula- 
tion of  returns  and  INHINT  (inhibit  interrupts)  and 
RELINT  (allow  or  release  interrupts)  instructions. 


1.  3.  1 ^ 

1.  3.  2 , 

' \ 



1.3.3  , , 
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1.  3.  4 


1.  3.  5 


Rectangles  denote  mathematical  calculations  and  data 
manipulation. 

Rectangles  divided  by  broken  lines  have  the  GSOP, 
NASA  publication  R-567,  Section  5,  equation  above 
and  the  AGC  equation  below  the  broken  line. 


1 . 3.  S 


N. 
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Symbols  of  this  shape  denote  flags  being  set,  cleared 
(reset),  or  inverted. 

Symbols  of  this  shape  denote  channel  bits  being  set, 
cleared,  inverted,  or  tested. 


Diamonds  denote  branching  and  any  testing  except 
channel  bits.  Any  number  of  lines  may  be  drawn  from 
the  diamond.  Each  line  is  labeled  with  an  answer  to 
the  question  asked  within  the  diamond. 


Diamonds  drawn  with  broken  lines  denote  testing  which 
occurs  in  the  logic  but  is  not  explicit  in  the  coding. 


Symbols  of  this  shape  denote  subroutines  called  direct- 
ly. The  tag  or  name  of  the  subroutine  is  written  in 
space  A,  a short  description  of  what  the  subroutine 
does  in  B,  and  the  sheet  number  or  flowchart  number 
where  the  subroutine  is  flowed  is  in  space  C.  The 
sheet  number  is  in  space  C if  the  subroutine  is  flowed 
in  the  same  flowchart  as  the  calling  routine  and  the 
flowchart  number  is  in  space  C if  the  subroutine  is 
flowed  in  another  flowchart. 


Symbols  of  this  shape  denote  subroutines  (i.  e.  , jobs 
or  tasks)  which  are  scheduled.  The  subroutine  tag  or 
name  is  in  space  D,  the  name  of  the  scheduling  routine 
and  the  scheduled  time  or  priority  is  in  space  E,  and 
the  flowchart  or  sheet  on  which  the  scheduled  subrou- 
tine is  flowed  is  in  space  F.  As  above,  the  sheet  num- 
ber is  used  in  space  F if  the  subroutine  is  flowed  in  the 
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same  flowchart  as  the  calling  routine  and  the  flowchart 
number  is  in  space  F if  the  subroutine  is  flowed  in 
another  flowchart. 


Symbols  of  this  shape  denote  restart  protection.  The 
restart  group  number  is  written  above  the  line.  This 
number  may  be  followed  by  a period  and  the  phase  num- 
ber. A description  of  the  restart  protection  is  written 
below  the  line. 


This  variation  of  the  above  symbol  denotes  Type  B 
(variable  and  fixed)  restarts.  The  restart  protection 
described  by  these  two  symbols  is  accomplished  si- 
multaneously. 


This  variation  of  the  above  symbol  denotes  2 group  re- 
start protection  set  up  via  calls  to  2PHSCHNG.  The 
restart  protection  described  by  these  two  symbols  is 
accomplished  simultaneously. 


1.  3.  15 


] 

Recycle  H | 


Proceed 


Symbols  of  this  shape  and  size  denote  display  interfaces. 
The  name  of  the  display  interface  routine  is  in  space 
TerminateG.  the  type  display  and  verb  and  noun  are  in  space  H, 
|and  the  number  of  the  flowchart  in  which  the  display 
interface  routine  is  flowed  is  in  space  J.  There  usu- 
ally are  three  exits  from  this  symbol  (depending  on 
astronaut  options),  as  shown:  terminate,  proceed,  and 
recycle  (or  enter). 


1.  3.  16 


Symbols  of  this  shape  are  connectors  showing  direct 
transfer  to  another  sheet,  another  flowchart,  or  a lo- 
cation on  the  same  sheet  that  cannot  be  easily  reached 
by  arrows.  The  name  of  the  entry  to  which  transfer  is 
being  made  is  written  above  the  line  and  the  flowchart 
number  or  sheet  number  of  the  entry  is  written  below 
the  line. 
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Symbols  of  this  shape  denote  termination  of  a subrou- 
tine, task,  job,  or  major  mode. 


1.4  CROSS-REFERENCE  FOR  MAJOR  MODES,  ROUTINES, 

AND  FLOWCHARTS 

Below  are  tables  that  cross-reference  major  modes  and  flowcharts  (Sub- 
section 1.  4.  1)  and  routines  and  flowcharts  (Subsection  1.  4.  2).  The  major  mode  or 
routine  is  given  first,  followed  by  the  flowchart  in  which  the  major  mode  or  routine 
is  flowed.  The  sheet  number  on  which  the  major  mode  or  routine  begins  is  given, 
unless  the  major  mode  or  routine  comprises  the  entire  flowchart  or  is  scattered 
throughout  the  flowchart.  An  asterisk  (^')  before  the  flowchart  number  indicates  this 
flowchart  has  not  been  completed  and  is  not  in  APOLLO  Guidance  and  Navigation 
Flowcharts. 

1.  4.  1 CROSS-REFERENCE  FOR  MAJOR  MODE  AND  FLOWCHARTS 


MAJOR  MODE 

FLOWCHART 

SHEET 

MAJOR  MODE 

POO 

FC-3010 

27 

P41 

1 

FC-3810 

P06 

*FC-3200 

P42 

FC-3820 

P07 

’"FC-3270 

P47 

FC-3830 

P12 

*FC-3950 

P51 

FC-3500 

P20 

FC-3600 

11 

P52 

FC-3510 

P21 

FC-3610 

P57 

FC-3520 

P22 

FC-3600 

11 

P63 

FC-3900 

P25 

FC-3620 

P64 

FC-3900 

6 

P27 

FC-3120 

P65 

FC-3900 

6 

P30 

FC-3700 

P66 

FC-3900 

30 

P32 

FC-3720 

P68 

FC-3910 

P33 

FC-3730 

P70 

FC-3970 

P34 

FC-3740 

P71 

FC-3970 

P35 

FC-3750 

P72 

FC-3720 

P40 

FC-3800 

P73 

FC-3730 

P74 

FC-3740 

P75 

FC-3750 

P76 

FC-3640 
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CROSS-REFERENCES  FOR  ROUTINES  AND  FLOWCHARTS 


ROUTINE 

FLOWCHART 

SHEET 

ROUTINE 

FLOWCHART 

SHEET 

ROO 

FC-3010 

26 

R36 

FC-3790 

3 

ROl 

no  flowchart 

R40 

FC-3850 

10 

R02 

FC-3220 

32 

R41 

FC-3350 

26 

R03 

FC-3440 

2 

R47 

FC-3250 

R04 

FC-3280 

R50 

FC-3510 

9 

R05 

FC-3435 

R.51 

FC-3510 

22 

R09 

FC-3930 

R52 

FC-3510 

42 

RIO 

FC-3930 

R53 

FC-3530 

Rll 

FC-3930 

R54 

FC-3510 

46 

R12 

FC-3935 

R55 

FC-3510 

48 

R13 

FC-3940 

R56 

FC-3510 

34 

R20 

FC-3600 

63 

R57 

FC-3530 

18 

R21 

FC-3600 

30 

R58 

FC-3500 

11 

R22 

FC-3600 

54 

R59 

FC-3520 

25 

R23 

FC-3600 

28 

R60 

FC-3420 

R24 

FC-3600 

49 

R61 

FC-3600 

24 

R25 

FC-3210 

R62 

FC-3410 

R26 

FC-3210 

R63 

FC-3400 

R29 

FC-3980 

R65 

FC-3600 

24 

R30 

FC-3770 

R76 

FC-3100 

3 

R31 

FC-3780 

R77 

FC-3280 

R33 

FC-3240 
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2.0 


GENERAL  MANAGEMENT  AND  SERVICE  ROUTINES 


FRESH  START  AND  RESTART 


Major  Subroutines  On  This  Chart 


SLAPl 

Sh, 

GOPBOG 

Sh. 

V37 

Sh. 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

FRESH  START  AND  RESTART 

DRAWN  

wm 

, DOCUMENT  NO. 

LUMINARY  ID  FC-3010 

ANALST 

REV  . 3 ISHEET  1 OF  39 

VIA  VERB  36 


FRESH  START 


SLAPl 


ASTRONAUT  INITIATED  FRESH  STARX 


/STARTSUB  ' 
INITIALIZE 
REGISTERS 


STARTSW 


SKIPSIM 


DSPTAB+llD  

"lOO  000  OOO  HOX  ooo" 


REGISTERS  COMMON  TO  BOTH 
FRESH  START  AND  RESTART 


THIS  LOCATION  IS  USED  TO  PATCH 
FOR  SIMULATION  PURPOSES  ONLY 


TURN  OFF  ALL  C RELAYS  AND  LIGHTS 
EXCEPT  "GIMBAL  LOCK"  AND  " NO  ATT".  A ONE 
IN  BIT-POSITION  15  OF  DSPTAB  + llD  INDICATES 
TO  PROGRAM  T4RUPT  THAT  A CHANGE  HAS 
OCCURRED  IN  B I T- POS  I T I O N S 11-1  SINCE 
THE  LAST  TIME  OS  PTA  B + 1 1 D WAS  PROCESSED 
BY  T4RUPT 


ERCOUNT- 


INDICATES  NO  MALFUNCTIONS 


FAIL  REG— O 

FAILREG  + l— — O 
FAlLREG+2— — O 


REMOVES  INDICATIONS  OF  PREVIOUS 
ALARMS.  PROGRAM  ALARM  WILL  PROCESS 
THE  NEXT  ALARM  AS  THE  FIRST  ALARM 


REDOCTR- 0 

\ CLEAR  / 

\ 


DSRUPTSW  -• OCT65777 


RESTART  COUNTER  INDICATES  NO  RESTARTS. 
SINCE  THIS  IS  A FRESH  STA  RT,  TH  E COUNTING 
OF  RESTARTS  BEGINS  WITH  O 


INITIALIZE  COUNTER  FOR  T4RUPT, 
STARTING  OUTPUT  OF  DISPLAYS  TO 
OSKY(VIA  ROUTINE  QUIKDSP) 


(dofstart) 


WRITE  BIT 
\ 14  OF  / 
XCHANll/ 


INSURE  ENGINE 
IS  OFF 


THRUST - 


INITIALIZE  FOR 
THROTTLING  ROUTINE 


IDOFSTRTl) 


CLEAR  BITS 
15-4,  2 ANOl; 
SET  BITS  OF 
RCSFLAGS 


INITIALIZE  ATTITUDE  ERROR  DISPLAY  FLAGS 


NEXT  SHEET 


FRESH  START  AND  RESTART 


t APii«a 

4--3/-6Z 


FC-3010 


LUMINARY  ID 


FROM 

PRECEDING  SHEET 


RESTREG  0CT300C 


SUPER  BANK  AND  PRIORITY  FOR  DISPLAY 
INTERFACE  ROUTINES.  SUPER  BANK  IS  O 
IN  BIT- POS  ITION  S T-5  AND  PRI  ORITY 
IS  30  IN  BIT- POSITION  S 14-10 


ABOELV 


INITIALIZE  ACCELERATION 
TO  ZERO  FOR  DAP 


NVSAVE  —— 
EBANKTEM 


CLEAR  DISPLAY- INTERFACE- 
ROUTINES  SAVE  REGISTERS 


CH  5MASK  - 
CH  6 MASK  - 
PVALVEST- 


INITIALIZE  FOR 
RCS  DAP 

FAILURE  CHECKING 


ERESTORE ■ 


SMODE 


INDICATES  THAT  THE  CHECKING  OF 
ERASABLE  MEMORY  IN  ROUTINE  ERASCHK 
WAS  NOT  INTERRUPTED  BY  A RESTART, 

A ZERO  ENABLES  A RESTART  TO  CONTINUE 
IN  GOPROG 

CAUSES  EXECUTION  OFTHE  IDLE  LOOP 
(NO  CHECKING,)  IN  PROG  R A M S ELF  C H E C K . 


DNLSTA  DR 


SELECT  POO  DOWNLIST 


AGS  WORD 


RESTART  PROTECTION 
FOR  DNLSTADR 


UPSVFLAG 


ZERO  UPDATE  STATE 
VECTOR  REQUEST  FLAGWRO 


NEXT  SHEET 


TURN  OFF 
RCS  JETS 


. clear 


TURN  OFF 
RCS  JETS 


■ S-3I-C8 


FRESH  START  AND  RESTART 


LUMINARY  IB 


FC-3O10 


FROM 

PRECEDING  SHEET 


y CLEAR  ALL^ 

\bits  of  / 

\CHAN  12  / 


TERMINATES  THE  DRIVING  OF 
MISCELLANEOUS  NAVIGATION 
AND  SPACECRAFT  HAROVUARE 


yCLEAR  ALL 
\bits  of  j 
\CHAN13/ 


TERMINATES  THE  CONTROL  OF 
MISCELLANEOUS  NAVIGATION 
SYSTEM  FUNCTIONS 


CLEAR  ALL/ 
\ BITS  OF  / 
\ CHAN  iV 


TERMINATES  THE  TRA  NS  M I S S I ON  OF 
OUTPUT  PULSES  FROM  THE  VARIOUS 
COUNTERS.  CCOU,  OPTICS  , PI  PA  , UPLINK, 

ETC.) 


/^ARE 

■Either  bit^ 

4 OR  6 OF 
.„^PTAB+l^ 


BOTH  BITS  SET 


I WRITE  BITS  j 
\ 4 K 6 OF  / 
\ CHAM  / 
\ 12  / 


THE  IMU  WAS  IN  COARSE  ALIGN  IN 
GIMBLE  LOCK  , SO  PUT  IT  BACK 
INTO  COARSE  ALIGN. 


/6R0UP1-G.0 . 

/kill  ALL  7 
/Ci-g) group/ 
'restarts  / 


ALL  GROUPS  MADE  INACTIVE 
VIA  SUBROUTINES  MR.  KUEAN, 
POOKLEAN  AND  V37KLEAN 


NEXT  SHEET 


INSTRUMF\TA7I0N  LAB 
wAWBRiDGt.  ^LASS. 


, ANAI.ST  ^ 

' ‘inc.MR 


APOLLO 

GUJOANCE  AND  f^AVJGATlON 


FRESH  START  AND  RESTART 


LUMINARY 


DOCl-'WNT  NO. 


; FC-3010 

1 ShCLT  4 ’ or  3 9 


FROM 

PRECEDING  SHEET 


MODREG  - 


-OCT  77777 


CAUSES  MAJOR  MODE  DISPLAY 
WINDOW  TO  BE  BLANKED 


IMOOES  30— 0CT37A11 


FRESH  START  IMU  INITIALIZATION. 
PROGRAM  T.4RUPT  WILL  PROCESS 
THE  CONTENTS  OF  IMOOES  30 


DB  — 

0CT03434 

rateindx  - 

-i OCT4 

SET  WIDE  DEAD 
BAND  FOR  DAP 


INITIALIZE  MANEUVER 
RATE  TO  2.0  deg/sec 


DAPBOOLS 


0CT2131Z 


INITIALIZE  FOR  DAP 


EBANK— EBANKfe 


HIASCENT  IS  IN  E BANK  6 


STIKSENS  - 
-RATEDB- 


-STIKSTRT 

-RATESTRT 


INITIALIZE  HAND  CONTROL 
MAXIMUM  COMMAND  RATE. 

AUTOPILOT  BREAKOUT  LEVEL. 


1 LIMIT  FOR  TESTING  THE  MASS 

HIASCENT— FULLAPS  'NTHEl/^CCS  ROUTINE.  FULLAPS  = 

I SOSO  KG  (SCALED  2 


DKTRAP  - 
LMTRAP  • 


DKKAOSN  ■ 
LMKAOSN  ■ 


■ OCT  77001 
-OCT  7Z001 


DEC60 

•DEC60 


LMOMEGAN  — 1-0 


DKO  MEGAN 


0.14  DEGREE  SCALED 
AT  4.S  DEGREES 


6-SECOND  GAIN 
FOR  ALPHA 


UNITY  GAIN  FOR  OMEGA 


1 second  gain 

FOR  OMEGA 


LOAD  NOMINAL 
DAP  FILTER 
GAINS  FOR 
DOCKED  AND 
LEM- ALONE 
CO  NFIGURATIONS 
DURING  FRESH 
START  TO 
PROTECT  DAP 
OPERATION 
UNTIL  ERASABLE 
LOAD  IS 
COMPLETED 


0CT00200 


NOMINAL  DOCKED  DEAD  BAND 
EQUALS  1.4  DEGREES 


IMOOES  33  — OCT  16040 


KEEP  BOTH  DAPAND  ERROR- 
NEEDLES  DISPLAY  OFF  UNTIL  ICDU 
ZERO  OPERATION  IS  COMPLETED 


NEXT  SHEET 


^ M FRESH  START  AND  RESTART 

4APRt8 

/ LUMINARY  ID  ^ _ 

y.  S-3/-i8  FC  ~3  O 1 0 


FROM 

preceding  sweet 


CLEARS 

FLAG  WROO 

CLEAR 

FLAGWRDl 

CLEAR 

FLASWR02 


CLEAR  BITS 
15-14,12  AMD 
10-1  ; OF 
FLAQWRD3 


^CLEAR^- ■ 

FLAGWRD4 

CLEAR 

FLASWRD5 

CLEAR 

FLASWR06 


DO  NOT  ALTER 
BIT  13  CREFSMFLO) 

BIT  11  (N0D0P07) 


CLEAR 

FLAGWRD7 


CLEAR  BITS 
15-13,  10-9 
and  7-1  OF 
FLAGWRD8 


DO  WOT  ALTER  BITS  12 
(CMOONFLG),  11  (LMOONFLG) 
AND  e (SURFFLAG^ 


CLEAR 

FLASWRD9 


CLEAR  BITS 
15,  14  AND  12-1 
OF  FL6WRO10 


DO  NOT  ALTER 
BIT  13  CAPSFLAG) 


SET  BIT  15  ; 
CLEAR  BITS 
14-1  OF 
FLGWRDll 


, ENDRSTRT 


\dummyjob  +^7 


i At»OLLO 

i CUtDANCr  NAVICATtON 

1 I 

cmrvR 


CALLED 

FROM  ROUTINE 

dofstart  of 

PROGRAM  SLAPl 
ON  SHEET  3 

(mrTklean) 


SUBROUTINE  FOR  MAKING 
ALL  GROUPS  INACTIVE 


INHIBIT 

inter- 

rupts 


/ GROUP Z 
/kill  GROUPey 
restarts  / 


GROUP  Z 
IS  INACTIVE 

THIS  ENTRY  IS  USED 
BY  PROGRAM  V37 
(routine  gomod) 
VIA  I8ANKCALL. 
SEE  SHEET  Z9 


(POOKLEAN 


/ &ROUP...'!!— . 
/kill  &R0UP4/ 
RESTARTS  / 


(V37KLEAN 


/ GROUP  5 .. 
/kill  group  S 

' RESTARTS  , 


(ABTKLEAN 


/GROUPS  1,3  q 6 
/killgroupsiJ 
/s  e;  G RESTARTS/ 


V RETURN  VIA/ 

\ Q / 


GROUP  4 
IS  INACTIVE 

THIS  ENTRY  IS  USED 
BY  PROGRAM  V37 
(ROUTINE  SEUDOPOO^. 
SEE  SHEET  29 


GROUP  5 IS  INACTIVE 


GROUPS  1;  3 AND  6 
ARE  INACTIVE 


; FRESH  START  AND  RESTART 


a«PR6& 

cT-SJ-iT 


LUMINARY  :iD 


FC-3010 


FROM  SLAPl  AND  SOPROG 


STARTSUB 


SUBROUTINE 

USE  BY  BOTH  FRESH  START  AND  RESTART, 
FOR  initialisation  OF  REGISTERS  COMMON 
TO  BOTH . 


DNTMGOTO  — ^'TC  DNPHASEl" 


INITIALISES  PROGRAM  DOWN  TELEMETRY 


RADMODES  OCT  OOlOE 

RADMODESfe  — (CHAN 


INITIALIZE  LANDING  RADAR 


( STARTSBl) 


TIMES 


TIMES 


OCT  'i'7-17'7 


OCT  37775 


OCT  37774- 


WILL  CAUSE  TIME  COUNTER  TIME3  TO  OVERFLOW 
IN  10  MILLISECONDS  FROM  NOW  TO  IN  TURN  INITIATE 
THE  EXECUTION  OF  INTERRUPT  PROGRAM  T3RUPT 

WILL  CAUSE  TIME  COUNTER  TIME4  TO  OVERFLOW 
IN  30  MILLISECONDS  FROM  NO  W TO  I N TURN  INITIATE 
THE  EXECUTION  OF  INTERRUPT  PROGRAM  T4RUPT 

WILL  CAUSE  TIME  COUNTER  TIME  5 TO  OVERFLOW 
IN  40  MILLISECONDS  FROM  NOW  TO  IN  TURN  INITIATE 
THE  EXECUTION  OF  TSRUPT  INTERRUPT 


EBANKG 


CLEAR  BIT  13  RESTART  OR  FRESH  START 

OF  rcsflass  since  last  1/ACCS 


TfeNEXT— 0CT3  777^ 


DISABLE  TIME6  INTERRUPT 


\CLEAR8IT/ 
\ 15  of/ 
\CHAN  13/ 


DISABLE  TIME6  CLOCK 


N XT6ADR  O 

NEXTP  — O 


CLEAR 

ACCOKFLG 


RESTART  OR  FRESH  START  SINCE 
LAST  1/ACCS-  OUTPUTS  SUSPECT 


DAPIDLER 
V SPECIFIED  FOR 
\ NEXT 
/ TSRUPT 
FC  - 34  50 


SCHEDULE  LEM  AUTOPILOT.  TIMES  WAS 
SET  IN  STARTSBl  TO  OVERFLOW  IN  -40  MS. 


NEXT  SHEET 


jO  * • START  AND  RESTART 

;13MAYflr 

I LUMINARY  ID  rrr_-5n  <n 
■ 3 ■;  8 39 


FROM 

PRECEDINS  SHEET 


^STAffTSB^ 


yCLEAR  BITS/ 
\l5, 12-2  OF/ 
CHAN 
11 


TURN  OFF  INDIVIDUA 
DISPLAY  system  . 
INDICATOR  (BITI) 
( BITS  14  AND  13j  I 


L INDICATORS  OF  THE 

leave  iss  warning 

AND  ENGINE  BITS 
NTACT 


\CLEAR  BITS/ 
\l5,13,8,7,/ 
\3-l  OF 
\cHAN  12 


ClEAR  RiZRPFls! 
CLEAR  NORRMONi 
CLEAR  RT7FLAG 


1 CLEAR  bits/ 
yii-8  and  / 
y4-l  OF  / 

I CHAN  13/ 


SET  BIT  12  / 
\0F  CHANia/ 


j CLEAR  BITS/ 
|lS-7,  r, 
3-1  OFJ 
\CHAN  14/ 


NEXT  SHEET 


CLEAR  REMODE  (14)  , CDUTEROING  (l3) 
REPOSITION  (ll)  AND  TURN-ON  (l)  FLAGS 


WILL  TERMINATE  THE  DRIVING  O F M I S C E L L A N E 0 U S | 
NAVIGATION  AND  SPACECRAFT  HARDWARE  AND  LEAVE  i 
ENABLE  CDU  IMU  ERROR  COUNTER,  ZERO  IMU  CDUS  | 
AND  ENABLE  COARSE  A L I G N M ENT  O F I M U , GIMBAL  j 
TRIM  DRIVES  AND  RR  LOCK-ON  ENABLE  INTACT  i 


PERFORM  RR  GIMBAL  MONITOR 
R77  IS  NOT  ON 


WILL  TERMINATE  STANDBY  OPERATION  , TESTING  OF  DSKY 
LIGHTS  AND  RELAYS,  INPUTS  TO  8MAS  COUNTERS  AND 
SAMPLING  OF  RR  AND  LR  . LEAVE  ENABLE  TfcRUPT 
FLAG,  RESET  TRAP  FLAG  S , TELEM  ETRY  WORD  ORDER 
FLAG,  BLOCK  INLINK  FLAG,  INHIBIT  UPLINK  FLAG  AND 
RATE  COMMAND  REMAIN  INTACT.  THE  BMAG  COUNTERS 
ACCUMULATE  INCREMENTAL  ANGULAR  DATA  FROM  THE 
GYRO  DISPLAY  COUPLER  OF  THE  SCS  BODY-MOUNTED 
ATTITUDE  GYROS 


ENABLE  PROGRAM  INTERRUPTED  NO.  10 


TERMINATES  PULSES  FROM  CDU  AND  GYRO  OUTPUT 
COUNTERS  CDUXCMD  , C DU  YCMD,  C D U Z C M D , 0 D U TC  M O , 
CDUSCMD  AND  GYROCMO.ALSO  TERMINATES  PULSES 
FROM  THROTTLE  AND  ATTITUDE  OUTPUT  CONTAINERS 
THRUST  AND  ALTIMETER  CONTROL  OF  TORGfUING  PULSES 
TO  TORQUE  THE  GYROS  REMAIN  INTACT 


r.i  St-- 


>0( 


FRESH  START  AND  RESTART 

Fc-3010: 

10  39  i 


FROM 

PRECEDING  SHEET 


EBANKS 


LSTl  AND  LSTZ  are  IN  E BANK  3 


LST1+  O 
LST1+ 1 


LSTl  +6 
LSTl +7 


OCT  S7777 


SCHEDULE  TASK  SVCT3  IN  WAITLIST  TO  BE 
EXECUTED  81.93  SECONDS  FROM  NOWAND 
EVERY  81.93  SECONDS  THEREAFTER  UNTIL 
A REGULAR  TASK  HAS  BEEN  SCHEDULED. 
T3RUPT  WILL  PLACE  OCT  17777  (OCT  S7777 
PLUS  OCT37777^  INTO  COUNTER  TIMES 
WHICH  WILL  RESULT  IN  81.93  SECONDS 


[lSTZ  + O,  LST2  + i] 
[LSTE+e,LST2  + ^ 

[]LST^+14D,  LST2  + 1Sd] 
(^LST2  + ie>D,LST2  + 17t0 


ZCADR 

SVCTS 


T3RUPT  WILL  CAUSE  THE  EXECUTION  OF 
TASK  SVCT3  WHOSE  COMPLETE  ADDRESS 
IS  IN  THE  ADDRESS  LIST  LSTZ.  TASK 
SVCT3  CHECKS  GYRO  DRIFT  AND 
COMPENSATES  I F N EG  ESS  A R Y A N D 
RESUMES  INTERRUPTED  ROUTINE 
VIA  TASKOVER 


PRI  ORITY  + O 
PRIORITY+  12  D 
PRIORITY+  2AD 

PRIORITY+60D 
PRIORITY  + 72D 


-OCT  77777 


AMINUS  ZERO  IN  THE  PRIORITY 
REGISTER  OF  EACH  JOB  REGISTER 
SET  INDICATES  EACH  JOB  REGISTER 
SET  IS  AVAILABLE  TO  NEW  JOBS 


DSRUPTSW— - 

OCT  77777 

NEWJOB  — 

— OCT77777 

VACIUSE  - 
VACZUSE  • 
VAC3USE- 
VAC4USE- 
VACSUSE- 


-"VACI  USE" 

-"vac  2 use' 
-"VAC3USE" 
-"VACA-USE' 

-'Va  c 5 us  E ' 


INITIALIZES  T4RUPT.  SEQUENCE  OF  T4RUPT 
FUNCTIONS  WILL  START  OVER  AGAIN.  FRESH 
START  CHANGES  THIS;  RESTART  DOES  NOT 

AMINUS  ZERO  CAUSES  THE  EXECUTIVE  TO 
INITIATE  IDLING—  THE  EXECUTION  OF  PROGRAM 
SELF  CHECK  IN  THE  ABSENCE  OFAN  ACTIVE  JOB. 
A MINUS  ZERO  INDICATES  NO  ACTIVE  JOBS 
WAITING  EXECUTION 

THE  ADDRESS  OF  THE  FIRST  LOCATION  OF 
EACH  VAC  AREA  IS  STORED  IN  THE  SAME 
LOCATION  (control  CELL  ) TO  INDICATE 
THAT  EACH  VAC  AREA  IS  AVA  I L A B LE  TO  N EW  JOBS 


NEXT  SHEET 


FRESH  start  AND  RESTART 


I0APR68 


LUMINARY  ID 


FC-3  01O 


FROM 

PRECEDING  SHEET 


DSPOFF 


DSPTAe+  10  D 
DSPTAB+  9 D 
DSPTAB+  8 D 

DSPTAB+1 

DSPTAB+0 


• OCT  73777 


DELAYLOC  + 0 ■ 

i « X 

delayloc-h  z . 

f " ° 

BLANKS  DSKY  WINDOWS  (PROGRAM  NUMBER,  VERB, 
NOUN  AMD  Rl,  R2ANDR3CHARACTERS^.THE  ONE 
IN  BIT-POSITION  15  INDICATES  TO  PROGRAM 
T4R0PT  THAT  THERE  HAS  BEEN  A CHANGE  IN 
BIT-POSITIONS  11  THROUGH  1 SINCE  THE  LAST 
TIME  PROGRAM  T4RUPT  PROCESSED  THAT 
DSPTAB  REGISTER.  A ZERO  IN  BIT-POSITION  l^ 
PREVENTS  UNWANTED  CCS  BRANCH  IN  THE 
T4R0PT  PROGRAM 


ANY  JOBS  THAT  HAVE  BEEN  MADE 
DORMANT  FOR  A SPEC  I FIED  TIME 
INTERVAL  BEFORE  REACTIVATING 
ARE  REMOVED.  A ZERO  SIGNIFIES 
THAT  NO  JOBS  ARE  WA ITI NG  ( S L E EPI  N 6^  NOW 


Rl  SAVE- 


CLEAR  MARK  AND  EXTENDED  VERB 
DISPLAYS.  CLEAR  REPEAT  AND 
RETURN  REOUEST 


NEXT  SHEET 


CLEAR  THE  INUINK  COUNTER 
OF  ALL  UPLINK  DATA 


DSPCNT 


CAUSES  T4RUPT  TO  SCAN  THE 
DSPTAB  TABLE  AT  DSPTAB -HO 
followed  by  DSPTAB-H0,-I-9,  ETC 


CADRSTOR  O 


NO  JOB  IS  USING  ENDIDLE  (nO  INTERNAL 
ROUTINE  ASLEEP  WAITING  OPERATOR’S  RESPONSE) 


REQRET- 


GIVES  THE  ENTER  BUTTON  THE  MEANING 
OF  EXECUTION  A VERB-NOUN  COMBINATION 
RATHER  THAN  THE  ENTERING  OF  DATA 


CL  PASS 


THE  CLEAR  BUTTON  MAY  BE  USED  TO 
CLEAR  THE  DISPLAY  REGISTERS  CONSECUTIVELY 


DS  PLOCK 


THE  display  system  HAS  BEEN  RELEASED 
BY  THE  OPERATOR  AND  IS  AVAILABLE 
FOR  INTERNAL  USE 


MONSAVE  O 


TERMINATES  THE  DISPLAY  MONITOR 
ACTIVITY 


MONSAVEl  O 


TERMINATES  THE  DISPLAY  MONITOR 
activity 


VERBREG 


THE  VERB  DISPLAY  WINDOW  IS  BLANK 


^ ^ FRESH  START  AND  RESTART 

(J?  l7APIf68 

/ / LUMINARY  ID  . 

' ' 4 FC-3010 


S-3l-i8 


FROM 


PRECEDING  SHEET 


NEXT  SHEET 


the  noun  display  window  is  blank 


NO  008  IS  USING  ROUTINE  NVSOBUSY 
(NO  INTERNAL  ROUTINE  IS  ASLEEP 
WAITING  FOR  THE  OPERATOR  TO 
RELEASE  THE  DISPLAY  SYSTEM) 


NO  OPTICS  MARK  OPERATIONS  HAVE  BEEN 
REQUESTED  AND  LEAVES  THE  MARK  SYSTEM 
FREE  TO  IMMEDIATELY  RECOGNIXE  A MARK 

reqoest(mark  system  NOW  available) 


TERMINATES  EXTENDED  VERB 
AND  MARK  ACTIVITY 


NO  JOB  IS  IN  THE  DORMANT  STATE 

AWAITING  THE  COMPLETION  OF  AN 

IMU  MODE  SWITCH.  SEE  NOTES  A & B BELOW 


NO  JOB  IS  IN  THE  DORMANT  STATE 

AWAITING  THE  COMPLETION  OF  AN 

OPTICS  MODE  SWITCH.  SEE  NOTES  A & B BELOW 


NO  JOB  IS  IN  THE  DORMANT  STATE 
AWAITING  THE  COMPLETION  OFA 
RADAR  MODE  SWITCH,  SEE  NOTES  A & B BELOW 


PROGRAM  KALCMANU  IS  AVAILABLE 
(free),  see  note  B BELOW 


N OTES : 

A.  THE  SYSTEM  IS  PREPARED  TO  PUTA  JOB 
REQUESTING  A MODE  CHANGE  INTO  A 
DORMANT  STATE  UNTIL  THE  SWITCH 
HAS  BEEN  COMPLETED 

B.  THESE  FOUR  "CADR"'  REGISTERS  ARE 
USED  TO  STORE  RETURN  ADDRESSES 
OF  JOBS  USING  THE  VARIOUS  MODE 
CHANGE  AND  MANEUVER  ROUTINES 


I7APR68 

0'3/<r 


FRESH  start  AND 


RESTART 


LUMINARY  ID 


FC-  3 010 


FROM 

PRECEDING  SHEET 


the  gyros  are  available 

TO  BE  PULSED 


TURN  OFF  interface  DISPLAYS 


THERE  ARE  ELEVEN  CHANGES  IN  THE  DSPTAB 
REGISTER  TABLE  (ELEVEN  RELAY  CODES  TO 
BE  transmitted  via  channel  10,  I. e.  out  . 
USED  BY  T4RUPT  PROGRAM 


INHIBIT  RADAR  READ  ROUTINE 
IN  PZO-PZS  PROGRAM 


LEAVE  DAP  ENABLE 
SWITCH  INTACT  (bit  6) 


NO  ACCELEROMETER  FAIL.  D O W N TE  L E M E TR  Y 
AND  UPLINK  RATES  ARE  NORMAL 


CAUSES  CONTROL  TO  BE  TRANSFERRED  FROM 
ROUTINE  ADVAN  (DUMMY  JOB  + 6^  IN  THE 
EXECUTIVE  TO  ROUTINE  5ELFCHK  IN  PROGRAM 
SELF  C H ECk  . TH  IS  ISTHE  IDLING  ACTIVITY 

A NEGATIVE  VALUE  PREVENTS  THE 
ACCEPTANCE  OF  NUMERICAL  CHARACTERS 
BY  PROGRAM  PINBALL 


END  OF  SUBROUTINE  STARTSU0 


AMXIO 

WIOAMZ  AM  NAWieATION 


- - ■ 




FRESH  start  AND  RESTART 


MKUMMT  NO. 


FC-3010 


H«I  14.  Of  39 


LUMINARY  ID 


RESTART 


CONTROL  COMES  HERE 
AS  THE  RESULT  OF  A GOJAM 
FROM  THE  INTERRUPTED  ROUTINE 


INTERRUPT  LEAD  IN  ROUTINE 

A=F  BANK  OF  INTERRUPTED  ROUTINE 
AND  E BANK  LAST  USED 


GOPROG 


ENTERED  BY  HARDWARE  RESTART^  I.E., 
EXECUTION  OF  GOJAM  SEQUENCE 


^IS\ 
YES/^BIT  A 0F\ 
^CpSPTAB  4-11 D 

=o?  / 


INCREMENT  RESTART 
COUNTER  BY  ONE 


SUPERBANK  OF  INTERRUPTED 
ROUTINE 

RSBBQ  = BBCON  OF 

INTERRUPTED  ROUTINE 

RSBBO  4-1  = REAL  ADDRESS  OF  THE 

LOCATION  NEXT  AFTER  THE  INSTRUCTION 

BEING  EXECUTED  AT  THE  TIME 

THE  GOJAM  OCCURRED 

IS  INERTIAL  SUBSYSTEM  SUITABLE 
AS  AN  ATTITUDE  REFERENCE  P 


NO 

(not  suitable) 


\SET  BITS  6 AND 
\4  OF  CHAN  12  / 


ENABLE  CDU  IMU  ERROR  COUNTERS 
(bits)  AND  ENABLE  COARSE  ALIGN 
OF  IMU  (bit  a) 


BUTTONS 


LIGHTSET 


\IS  BIT  5 
NO  \0F  INPUT 
^HAN  16  j 


IS  CHAN 

\ =OCT 

\ sa  ? , 


(NONAVKEY 


SIMULTANEOUS  DEPRESSION  OF  THE  MARK 
REJECT  AND  THE  ERROR  RESET  KEYS  WILL 
CAUSE  A FRESH  START.  THIS  IS  TO  ALLOWTHE 
ASTRONAUT  TO  TERMINATE  A RESTART  LOOP 


IS  THE  OPTICS  MARK  REJECT 
SIGNAL  PRESENT  ? 


HAS  THE  MAIN  PANEL  DSKY  ERROR  LIGHT 
RESET  BUTTON  BEEN  DEPRESSED  P 


STARTSUB  \ 

initialize 

REGISTERS 

SH8~7 


DOFSTART 
. SHE  ^ 


registers  COMMON  TO 
BOTH  FRESH  START 
AND  RESTART 


L 


RETURN 
i VIA  <? 


FROM  PRECEDING  SHEET 


NOTE  : 

E AND  E + 1 SIGNIFY 
THE  ADDRESSES  OF 
THE  LAST  TWO 
CONSECUTIVE  E 
MEMORY  LOCATIONS 
WHICH  WERE  CHECKED 


DOES  E MEMORY  SATISFY  INITIAL  CHECK  ? 

IS  THE  ADDRESS  LAST  CHECKED  BY 
ROUTINE  ERASCHK  (iN  PROGRAM  SELF 
check)  situated  in  E MEMORY  (less 
THAN  OCTAL  2000)  ? 


WAS  CHECKING  E MEMORY  IN  ROUTINE 
ERASCHK  INTERRUPTED  BY  A RESTART  P 

note: 

REGISTER  ERESTORE  IS  SET  TO  + O 
BY  ROUTINE  ERASCHK  AFTER  THE 
CHECKINS  OF  E MEMORY  IS  COMPLETED 


IS  E MEMORY  SATISFACTORY  ? 

NOTE  : 

THE  E MEMORY  ADDRESS  TO  BE 
CHECKED  WAS  STORED  IN  BOTH 
REGISTERS  BY  ROUTINE  ERASCHK 
PRIOR  TO  THE  CHECKINS 
PRIOR  TO  CHECKING  E MEMORY 
LOCATIONS  E AND  E + 1 ; TH  E ORIGI  N AL 
CONTENTS  OF  E AND  E + 1 WERE 
TEMPORARILY  STORED  INTO  REGISTERS 
SKEEP  5 AND  SKEEP  6^  RESPECTIVELY  , 
ALSO  ADDRESS  E WAS  STORED  INTO 
REGISTERS  SKEEP7  AND  ERESTORE 


RESTORE  ORIGINAL  CONTENTS 

SINCE  ROUTINE  ERASCHK  WAS  INTERRUPTED 
BY  A RESTART^  THE  LAST  TWO  CONSECUTIVE 
E MEMORY  LOCATIONS  DID  NOT  HAVE  THEIR 
ORIGINAL  CONTENTS  RESTORED. 
THEREFORE  ; THE  ORIGINAL  CONTENTS  ARE 
RESTORED  TO  LOCATIONS  E AND  E+1 
WHERE  E IS  AN  E MEMORY  LOCATION 
WHOSE  ADDRESS  IS  DEFINED  AS  ; 

OCT  1A61  ^ E < OCT  177© 

IN  E BANK  O 

OR 'OCT  1400  < E§  OCT  1776 

IN  E BANK  1, 3^4;  5;  6 OR  7 
OR  OCT  1400  < OCT  1772 
IN  E BANK  2 

INDICATES  THAT 

THE  CHECKINS  OF  ERASABLE  MEMORY  IN 
ROUTINE  ERASCHK  WAS  NOT  INTERRUPTED 
BY  A RESTART.  A ZERO  ENABLES  THE 
NEXT  RESTART  TO  CONTINUE  IN  GOPROG 


REGISTERS  COMMON  TO  BOTH 
FRESH  START  AND  RESTART 


ERESTORE- 


+ 0 


I 


(dorstart) 


STARTSUB 


INITIALIZE 

REGISTERS 


SH8 


SETINFL  ^ 


INTEGRATION 
NOT  IN 
PROGRESS 


NEXT  SHEET, 


ViT 

3'.[, 


GlUO/^N'::  ANO  '/AV'CA’iON 


I FRESH  START  AND  RESTART 
1 LUMINARY 


S/lllii?  3- 


FC-3010 

■ r \g  ■ ' 39 


FROM 

PRECEDIN&  SHEET 


NEXT  SHEET 


NOOPTICS  CDU  MALFUNCTION. 
program  alarm  , GIMBAL  LOCK 
AND  NO-ATTITUDE  LAMPS  REMAIN 
INTACT  C SITS  4,  6 AND  9^ 


A CHANGE  C BIT8^  IN  DSPTAB  + 
IID  HAS  TAKEN  PLACE  SINCE 
THE  LAST  transmission  OF  ITS 
CONTENTS  BY  TARUPT  PROGRAM 


INITIALIT-E  FAILURE  COOES 
AND  TURN-ON  REQUEST, 
FAILURE  INHIBITS  REMAIN 
INTACT  C BITS  9,5-3  AND  l) 


CORRECT  OOWNLIST 


ENABLE  THRUST 
DRIVE  COMMANDS 


FRESH  START  AND  RESTART 


LUMINARY  ID 


S<il-cs 

C- 


X-3010 

17  39 


3 


FROM 

PRECEDING  SHEET 


FROM 

SHEET  30 


GOPROGl 


#ULD  ENGINE 

TURNED  ON  7 
’ 

YES, 

ENGINE 
SHOULD 
BE  ON 


' STARTSB7 
INITIALIZE 
REGISTERS 


ENEMA 


INHIBIT 

INTER- 

RUPTS 


' STARTSBl 

I nitialize 

REGISTERS 


ISET  BIT/ 
\l3  of/ 
\CHANll/ 


TURN 

ENGINE 

ON 


NOTE  : 

THIS  BEING  A 
RESTART,  THE 
ENGINE  WAS 
TURNED  OFF  IF 
IT  WERE  ON  / 


SET  BITi 
14  OF  / 
ICHANll/ 


TURN 

ENGINE 

OFF 


GOPROGZA 


/ LIGHTSET  \ 
CHECK  FOR  ' 
MARK  REJECT  AND 
ERROR  RESET  , 


CLEAR 

INTFLAG 

CLEAR 

REINTFLG 


INTEGRATION  NOT  IN  PROGRESS 

INTEGRATION  ROUTINE  NOT  TO 
BE  RESTARTED 


NEXT  SHEET 


INST!'JV.f.\'ATiO'/  ' AS 
CAMaRIDCt.  MAlf. 


t ;in  vR 


Ap!.lll' 

PUiOANC:'  ANC  MAVI„AT!C'. 


j FRESH  START  AND  RESTART 
liSMm 

1^“'^"!  LUMINARY  id  r— ^ i 

FC- 30 10 


FROM 

PRECEDING  SHEET 


(GOPRO&3 


CHECK  FOR  PHASE 
TABLE  AGREEMENT 


INITIALIZ.E  FOR 

S GROUPS 

MPAC  + 5 

— S 

1 

DECRE  MENT 
MPAC  + 5 

X Z IS  AN  INDEX  AND 

IS  EQUAL  TO  2 TIMES 
(MPAC  + ST^ 

r PCLOOP^ 

DO  THE  PHASES  IN  THE 
NEXT  TWO  PHASE  TABLE 
LOCATIONS  AGREE  7 


PHASE  TABLE  REGISTERS 

- PHASE  1 

PHASEl  EQUALS  -PHASEl+1 

- PHASE  Z '!  " +2 

PHASE Z " « +3 

-PHASES  " " +4 

PHASES  " " +S 

-PHASE4  " n +6 

PHASE4  " H +7 

-PHASES  " " +81 

PHASES  '!  " +91 

-PHASE  6 " " +1C 

PHASES  " H +11 


IS  \ 
-PHASEl+XZP 


FAILURE  \ 

(no 

AGREEMENT^ 


PHASEl+l+X^ 

\ 


HAS  ENTIRE  PHASE  TABLE 
BEEN  CHECKED  FOR  PHASE 
TABLE  VERIFICATION  7 


PT8AD 


MPAC+S=0 


incomplete,  compare 

NEXT  TWO  locations 


DOES  THE  PHASE  (in  COMPLEMENT 
FORM,)  IN  THE  1 1 TH  (- PHASE  g),  9TH 
(-  PHASES^,  ...  1ST  (-PHASEl^  LINES 
OF  THE  PHASE  TABLE  AGREE  WITH 
THE  PHASE  (in  TRUE  FORM,)  IN  THE 
tZTH  (PHASEG),  10  TH  (PHASE  S),,.. 
ZND  (PHASEl)  LINES,  RESPECTI VELY, 
OF  THE  PHASE  TABLE  ? 


NEXT  SHEET 


MPAC  + S 
5 
4 
3 
Z 
1 
0 


- PHASES  = PHASES  ? 

- PH ASE  S = PH ASE  5 ? 

- PHASE4  = PHASE4 7 
-PHASE  3=PHASE 3 ? 
-PHASE  Z=PHA5E  Z ? 
-PHASE  1 = PHASEl  ? 


/ ALARM  \ 
SETS  A FAIL  RES' 
REGISTER  WITH 
^CODE  OCTllO?/ 
\ FC-30T0  / 


SET  PROGRAM  ALARM  LIGHT 
AND  ALARM  CODE  TO  INDICATE 
PHASE  TABLE  FAILURE 


DOF5TRT1 

^ SHZ  ^ 


FRESH  START  AND  RESTART 


1SW«68 

U"- 


LUMINARY  lO 


■C-3010 

39 


FROM  PRECEDING  SHEET 


CLEARS- 
MPAC  + 6 


RESET  PHASE  ACTIVITV  FLAG 
TO  INDICATE  INACTIVE  STATUS 


/ MMDSPLAY 
DISPLAY  MAJOR 
MODE  VIA  DSPMMJOe 
\ FC-30E0 


CLEAR  0IOFLA© 
CLEAR  ROD  FLAG 
CLEAR  PaiFLAG 


NXTRST 


-(PHASE1+X5)[ 


perform  data  DISPLAY  INITIALIZATION  FUNCTIO 
IF  IN  P€6  RE-IN rriALIZATION  IS  PERFORMED 
CALCULATE  NEW  BASE  STATE  VECTORS 

INITIALIZE  INDEX 
FOR  SIX  GROUPS 


SEARCH  FOR  ACTIVE  GROUP 

X5  IS  A NOTATION  FOR  THE  INDEX 
AND  IS  EQUAL  TO  THE  DOUBLE  OF 
THE  CONTENTS  OF  MPAC+5 

GROUP  6 5 A 3 2 1 

X3  lO  8 6 A 2 O 

MPAC+5  5 4 3 2 1 O 


C=  + o; 

INACTIVE 


IS  NEXT  GROUP  ACTIVE  7 GROUP  G IS 
TESTED  FIRST.  IN  SUCCEEDING  LOOPS 
GROUP  5,  THEN  4,  Z AND  LAST  1 ARE 
TESTED  FOR  ACTIVE  STATUS 


PACTIVE 


TEMPORARILY  STORE  PHASE  NUMBER 

■(PHASE1  + X3)  OF  GROUP  JUST  TESTED  AND  FOUND 

1 ^ TO  BE  ACTIVE 


INCREMENT 
MPAC+6 


SET  PHASE  ACTIVITY  FLAG 
BY  INCREMENTING  MPAC  + 6 


VIA  eXNKCALL 


/ restarts  \ 

/SETUP  TASK  Ol\ 
/^JOB  INDICATED  BY\ 
(.PHASE  SETTING  OF/ 
XCURRENTGROUP/ 


ENTER  ROUTINE  RESTARTS  WITH  THE 
NUMBER  OF  THE  ACTIVE  GROUP  MINUS 
ONE  IN  MPAC  + 5,  ITS  PHASE  NUMBER 
IN  MPAC  AND  THE  PHASE  ACTIVITY  FLAG 
M PA  C + 6 = 1 


PROCEED  TO  TEST 
NEXT  GROUP 


DECRE  MENT 
MPAC  + E 


/MPAC+sX. 
\ = + O 

7 

\^YES 
NEXT  SHEET 


HAVE  ALL  GROUPS  BEEN 
TESTED  FOR  ACTIVE  STATUS  ? 


FRESH  START  AND  RESTART 


LUMINARY  lU 


S-3H8 


FC-3010 


FROM 

PRECEDING  SHEET 


ARE  ANY  GROUPS  ACTIVE  ? 


Call  inactive^ 


'MPAC+6\^  YES 

^ + o 


■bit  15  OF 
MOOREG 


DOES  FRESH  START 
CONDITION  STILL  EXIST? 

>NO,  (SINCE  FRESH  START  NO  MAJOR 

MODES  HAVE  BEEN  REQUESTED- 
IDLE  STATE) 


ENDRSTRT 


VIA 

POSTJUMP 


eOTOPOOH  WILL  CAUSE  VERB  37  TO 

rrr^; — be  flashed  on  the 

KEYBOARD 


VDUMMYJ  OB-1’2 


IN  THE  EXECUTIVE 
PROGRA  M 


END  OF  RESTART 
(SOPROG  AND  GOPROS23 


y ^ FRESH  START  AND  RESTART 

SOAPWa 

- 

^ LUMINARY  ID 

■ Q.^.&eJe.  s-3/-ce  ^ 3010 

3 r 


3 


(SOTO  POOH 


FUNCTION  : 


FLASH  V37  ON  DSKY  REQUESTINS 
ASTRONAUT  TO  SELECT  NEW 
MAJOR  MODE 


/ SROUP4.33  / 
/sets  up  restarts/ 
/to  schedule sopoofix/ 
/as  a novac  job  with  / 
'priority  37 / 

VIA 

POSTJUMP 


CALLING  SEQUENCE  : 
TC  SOTOPOOH 


, SOPOOFIX 


CLEAR 
XOVI N FLG 
CLEAR 
ULLAGFLS 


X-AXIS  OVERRIDE  OKAY 


NO  INTERNAL  ULLAGE  REQUEST 


/ CLEAR  MRK  +5\ 
RELEASE  MARK  ' 
DISPLAY  SYSTEM 


FC-3080 


^ GOFLASH  ^ 
FLASH  VST  ON  DSKY. 
WAIT  FOR  RESPONSE 
FROM  OPERATOR 


TERMINATE  , 
PROCEED  OR 
ENTER 


FRESH  START  AND  RESTART 


aOAFKI 


LUMINARY  ID 


Q.  Jj.  /SlicA  S<31-18 


FC-3010 


CONTROL  COMES  HERE 
FROM  MMCHANS  OF  THE 
PINBALL  PROSRAMVIA 
POSTJUMP  AS  THE  RESULT 
OF  VERB  37 


CHANGE  MAJOR  MODE 


ACCUMULATOR  CONTAINS 
KEYED-m  major  MODE 
WHICH  WILL  REPLACE 
THE  CURRENT  MODE 


MMNUMBER  • 


STORE  MAJOR  MODE 


RESTRES 


OCT30000 


INSURE  CORRECT 
PRIORITY  FOR 
RESTART 


IS  IMU  BEING  INITIALISED? 
•^ITG0F\^  CHECK  to  prevent  wipe 
^MODESSO/  OUT  OF  TASK  BY  RESTART 
LOGIC 


IS 

'MMNUMBER 
\ = 70  ? / 


ISSERVON 


SETUP70 


X '5  \ 

MMNUMBER\__ 
\ = 71  7 X YES 


CANTROO 


SETUP71 


/SETS  A FAILRES' 
REGISTER  WITH 
\CODE  OCT  15^0y 

\fc-3070  / 


SET  WARNING  LIGHT  AND 
ALARM  CODE  TO  INDICATE 
V37  REQUEST  NOT 
PERMITTED  AT  THIS  TIME 

from  V37NONO  ON 
SHEET  Z3 


IS  POO 

IS  X^EQUESTED? 
MMNUM8ER> 

'V  = 07  jX 


V 37BAD 


/ RELDSP  \ 

/ RELEASES  DISPLAY  \ 
'SYSTEM  FROM  OPERATOR’^ 
CONTROL  AND  MAKES  IT 
^AVAILABLE  TO  INTERNAL  / 
\ ROUTINE  REQUESTS  / 
\ FC-30e0  / 


^ns\.  IS  V37 
^iT  1 of\permitted  7 

FLAGWR02^ 

\ = 07X^ 


VIA 

POSTJUMP 


EXIT  TO 
PIN  BRNCH 
VFC-0130  SH4 


RESTORE  LAST  NORMAL 
DISPLAY  AND  CONTINUE 
WITH  INTERRUPTED 
ACTIVITY 


TO  CHECKTAB 
ON  NEXTSHEET 


FRESH  START  AND  RESTART 

t2.  30APRS8 

/ jT-i/'Cr 

^ LUMINARY  ID 

0.  /2t^  S-3J-C8  ^ 3010 


FROM 

PRECEDING  SHEET 


TEMPFLSH— — CADR  DUMMYAD 


TEMPFLSH  IS  SET  SO  THAT  CONTROL 
WILL  RETURN  TO  ROUTINE  ROO 
IN  CASE  THERE  IS  A RESTART 
(PROVIDED  A ONE  IS  SET  INTO  ANY 
OF  THE  PHASE  REGISTERS^ 


/ SR0UP4.1 
/set  up  RESTARTS 
/ TO  return  to  y 
ROUTINE  ROO  / 


WILL  CAUSE  RESTARTS  TO 
IMPLEMENT  ROUTINE  INITDSP, 

THUS  RESTARTING  A JOB  INDICATED 
BY  THE  CONTENTS  OF  REGISTER 
TEMPFLSH.  THIS  IS  A SPECIAL  CASE 
— NORMALLY  RESTARTS  ARE  SET  UP 
TO  RFTURN  TO  THE  LAST  DISPLAY 


INTPRET 


FROM  INITDSP  OF  INTERFACE 
DISPLAY  ROUTINES  VIA  TEMPFLSH 
WHICH  WAS  SET  ABOVE  (IN  THIS 
ROUTINE  - CANV37^ 


/ INSTALL  \ 

/ WAIT  FOR  \ 
^COMPLETION  of) 
\ INTEGRATION/ 
\fc-3350  / 


DETERMINE  IF  STALL  AREA  IS  AVAILABLE 
IF  SO,  STALL  area  IS  GRABBED.  IF  NOT, 
WAIT  (this  JOB  IS  PUT  TO  SLEEP). 
INTSTALL  IS  A ROUTINE  IN  THE 
INTEGRATION  I N ITI A L I X ATI  0 N PROGRAM 


DUMMYAD 


CLEAR 
BIT  6 OF 
FLAGWRD5 
CLEAR 
POOH FLAG 

SET 

LRBYPASS 
CLEAR  BITS  14-1 
OF  FLAGWRDll 
CLEAR 
GLOK  FAIL 

CLEAR 

R04.FLAG 

CLEAR’ 

XOVINFLG 

CLEAR 

MUNFLAG 

CLEAR 

ABTTGFLS 


NEXT  SHEET 


MANEUVER  SPECIFIED  BY  ONE 
AVIS  (CLEAR  3AXISFL&) 


BYPASS  ALL  LANDING 
RADAR  UPDATES 


NOT  reading  RR  DATA 
PERSUANT  TO  RZ9 

X-AXIS  OVERRIDE  OKAY 

SERVICER  CALLS  CALCRV6 


. ^ .y  FRESH  START  AND  RESTART 

(?.  2MAY68 

OJtj.fijLjz  s-3i-i8  3010 

s ze  3 9 


FROM  PRECEDING  SHEET 


MMNUMBER^ 

\ =+o 


DID  THE  KEYBOARD  REQUEST  POOH  ? 
NO 


PICK 
UP  NEW 
PROGRAM 


NOUVEA  U 


/ RELDSP \ 

/ RELEASES  DISPLAY  \ 
'^SYSTEM  FROM  OPERATOlW 
CONTROL  AND  MAKES  IT 
.AVAILABLE  TO  INTERNAL 

\routine  requests  / 
\ rc-3oeo  / 


/EITHER^ 
BIT9  OR7 
vOF  FLAGWROO^ 
\ =1?/ 


CLEAR  ^ 

BIT  8 OF 
FLAGWRDO 


IS  EITHER  P20  OR 
PZ5  OPERAXING  7 


IMU  IS  NOT  IN  USE 
CLEAR  IMUSE  FLAG 


r 

L 

/ CLRAPMOD  \ 
CLEAR  CPESFLG, 
DESIGFLG  AND 
DISABLE  RADAR 
ERROR  COUNTERS 
\ Fc - 3feoo  y 


CLEARS 

BIT  1 OF 
FLAGWRD2 


-^DNLADMMl  +X4; 


TURN  OFF  NODO  FLAG 
TO  PERMIT  VERB  37 

0 V37  PERMITTED 

1 V37  NOT  PERMITTED 


X4  IS  A NOTATION  FOR  THE  MAJOR 
MODE  INDEX  AND  IS  EQUAL  TOTHE 
CONTENTS  OF  MINDEX. 

MMl  +X4.3  SELECT  OOWNLIST  CORRES- 

1 PONDING  TO  THE  MAJOR  MODE: 

X4  OOWNLIST  ADDRESS  MAJORMODE 

0-5  DNLAOMMl  AORES  RENDE7VU  P79,  P78, 

P75,P74, 
P73,  P72 


G 

// 

POWERED 

P63 

7,8 

" 

/t 

COSTALIN 

PS2,  PSl 

9-lZ 

t! 

" 

POWERED 

P4  7,  P4  2, 
P41,  P40 

13-18 

// 

// 

RENDEZVU 

P39,P38, 

P3S,P34, 

P33,P32 

19-23 

H 

// 

P31LM, 
P30,  P2S, 
P21,P20 

24 

•• 

7/ 

POWERED 

P12 

ZS,26 

// 

ti 

RENDEZVU  Pll,  PIO  1 

27 

// 

H 

COSTA  LI  N 

P06 

/ 6R0UP2.5  , 

/ SET  UP  RESTARTS  to/ 

/schedule  statinti  as/ 

A FINDVAC  JOB  with/ 
PRIORITY  OS  / 


ROUTINE  STATINTI 
IS  IN  THE 
INTEGRATION 
INITIALIZATION 
PROGRAM 


BIT  7 OF 
FLAGWRDO 


CLEAlf'~\__ 
BIT  8 OF 
FLAGWRDO 


INDICATES 
P 20 

PROGRAM 

TERMINATED 

INDICATES  IMU 
NOT  IN  USE 


CLEAir~'^ 
BIT  9 OF 
FLAGWRD  O 


-DNLADPOO 


P25  PROGRAM  I 

TERMINATED  

(CLEAR  P25FLAG^ 

SELECT  LM  COAST  AND 
ALIGN  (POO,  POS,  POGjPO^ 
P51,  P52^  DOWNLtST  FOR 
DOWN-TELEMETRY  PROGRAM 


INHIBIT 

INTERRUPT 

PROGRAMS 


next  SHEET 


FRESH  START  AND  RESTART 

'■  ^ 3MAY68 

K -■  ^ LUMINARY  ID  ^ ^ 

' s-3/-is  FC~3010 


FROM 

PRECEDING  SHEET 


SEUDOPOO 


1 

AGSWORD 

^ A 

SET 

N0D0P07 


SET  UP  APPROPRIATE 
OOWNUIST  ADDRESS 


FOR  RESTART  PROTECTION 


SYSTEM  TESTS  NOT  AIT^OWED 


I VIA  IBNKCALL 

/ ALLCOAST  \ 

SELECT  DEADBAND  AND \ 
REPOSITION  SWITCH  CURVES  ) 
FOR  COASTING  FLIGHT  / 

\ FC-3A40  / 

I VIA  ISWRETURN 


E8ANKTEM  • 


-OCT77657 


clears 

BIT  S OF 
FLAGWROl 


INITIALISED  TO  PREVENT 
THE  OLD  DISPLAY  DURING 
SUBSEQUENT  RESTARTS 
(DUE  TO  BIT  4).  ASSURES 
THAT  BIT  4 = 1 

TRACKING  NOT  ALLOWED. 
clear  TRACKFLG 


CLEARS 

BIT  7 OF 
FLAGWROl 


UPDATING  BY  MARKS  NOT 
ALLOWED.  CLEAR  UPDATFLG 


NEXT  SHEET 


FRESH  START  AND  RESTART 


3MAV68 

Ss/'CJ 


Q.M./LcM-  s-31-i9 


LUMINARY  ID 


FC-3010 


PROM 

PRECEDING  SHEET 


GUIDAN. : 

*'  MA  . 

:19MAY69 

F^RESH  start 

AND  RESTART 

luminary  i£^ 

{}.>  -y'n'  !v0 

FC-3010 

tr^ZAc/" 

g/tUi(4  >■■ 

V 3 

••:•-'  19  3 9 

FROM 

PRECEDIN©  SHEET 


FROM 

preceding  SHEET 


POOFI-EE 


/ ©ROUP  4 
/kill  group  4y 
restarts  / 


/KILL  GROWPlJ 
3,  5AND6  7 
RESTARTS/ 


GROUP  4 MADE 
INACTIVE  VIA 
SUBROUTINE  POOKUEAN 


©ROUPS  1 , 3,  5 AND  6 MADE 
INACTIVE  VIA  SUBROUTINE 
V37KLEAN 


INITIALIT-E  restart 
ADDRESS  FOR  INTER- 
FACE DISPLAY 
II  ROUTINE  INITDSP. 

EMPFLSH-^CADR^37XEQ  + ^ Ts'sET^SO 
THAT  CONTROL  WILL 
. RETURN  TO  V37XEI3 

^ IN  CASE  OF  A RE- 

START 


MODREG- 


-MMNUMBER 


KEYED-IN 
MAJOR  MODE 


60G0PR0G , 


VIA  POSTJUMP 


GOPROG2. 


(lNITOSP  + 6 I 


•(rEMPFLSH^-3 

VIA 

BANK  JUMP 


V37XEO 


PART  OF  INTERFACE  DISPLAY 
ROUTINES  . A = CADR 
V37XEG 

tempflsh  was  set  to 
CADR^37XE(3  + ^IN  routine 
POOFIH.E  OF  PROGRAM  V37 
ABOVE 


BEGIN  PREPARATION  OF  XH  E 
PRIORITY,  BBCON  AND  GENADR  OF 
THE  KEYEO-IN  MAJOR  MODE  SO 
THAT  ITS  EXECUTION  AS  A FINDVAC 
JOB  CAN  BE  INITIATED  BY  SPVAC 


(PH  SPRDT4)— -^(PREMM1+X4^^ 


PRIORITY  FOR 
GROUP  4 RESTART 


NEXT  SHEET 


^ fresh  start  AND  RESTART 

6MAY68 

/ LUMINARY  ID  _ j ^ 

FC-3010 


FROM 

PRECEDING  SHEET 


1 


X4  IS  A NOTATION  FOR  INDEX  AND  IS  EQUAL 
TO  THE  CONTENTS  OFMINDEX 


CnEWPR.o;^j^(PREMM1«4;^^_^  14  _ lo  OF  NEWPRIO 

I 


PRIORITY  STORED  INTO  B IT- PO  S I Tl O N S 


L^^(PREMM1+X43^^_g 
‘-is^  (FCADRMM1  + X4^^^_^^ 

I 


EBANK 

FBANK 


BBCON  FORMED  IN  U 


A£^CfCADRMM1+X4J^^_^ 
A-^A+  OCT  02000 


GENADR  FORMED  IN  A 


VIA  SPVAC 
WITH  : 

A = GENADR 
L = BBCON 
NEWPRIO  “ PRIORITY 


} 


2CADR 


}» 


F KEYED-IN  MAJOR  MODE 


FCADRMMl TABLE  , 


FINDVAC  JOB 
PRIORITY  IS  IN 
THE  PREMMITABLEN 


NEXT  SHEET 


REQUEST  THE  EXECUTIVE  PROGRAM  TO  INITIATE  THE 
EXECUTION  OF  THE  KEYEO-IN  MAJOR  MODE  ACCORDING 
TO  THE  PRIORITYIN  NEWPRIO.  THE  2CADR  AND 
PRIORITY  OF  THE  KEYED-IN  MAJOR  MODE  WERE 
DERIVED  ABOVE  FROM  THE  FCADRMMl  AND 
PREMMl  tables  AS  FOLLOWS  : 


PREMM1^^_  = PRIORITY 


PREMMl 


E BANK  NUMBER 


TO-8 

FCADRMMl  = FCADR  OF  THE  MAJOR  MODE 


PREMM1.^_J  “MAJOR  MODE  NUMBER 


PREMMl 

E 

MAJ  OR 

FCADRMMl 

TABLE 

PRIORITY 

BANK 

MODE  NO. 

TABLE 

Coct) 

(oct; 

NO. 

Cdec) 

FCADR  OF 

27717 

13 

7 

79 

P79 

27716 

13 

7 

78 

Pie 

27713 

13 

7 

75 

PIS 

27712 

13 

7 

74 

P74 

27711 

13 

7 

73 

P73 

27710 

13 

7 

72 

PlZ 

27677 

13 

7 

63 

P63CM 

272  64 

13 

5 

52 

PROG52 

27263 

13 

5 

51 

P51 

27657 

13 

7 

47 

P47LM 

276  52 

13 

7 

42 

P4  2LM 

27651 

13 

7 

41 

P4I  LM 

2 76  50 

13 

7 

40 

P40LM 

27647 

13 

7 

39 

P39 

27646 

13 

7 

38 

P38 

27643 

13 

7 

35 

P35 

27642 

13 

7 

34 

P34 

27641 

13 

7 

33 

P33 

27640 

13 

7 

32 

P32 

27637 

13 

7 

31 

P31LM 

27636 

13 

7 

30 

P3  O 

27631 

13 

7 

25 

PROG  25 

27625 

13 

7 

21 

PROG  21 

276  24 

13 

7 

20 

PROG  20 

27614 

13 

7 

12 

PI  2 LM 

27613 

13 

7 

11 

Pll 

27612 

13 

7 

lo 

PIO 

27006 

13 

4 

OG 

P06 

FRESH  START  AND  RESTART 


7MAYt8 

i'3/-<jr 


6.^./3uJs 

J-  ^ 


LUMINARY  ID 


S-3J-iS 


FC-3010 

3i  39 


A 


FROM 

PRECEDING  SHEET 


NEW  (keyed- in) 
MAJOR  MODE  NUMBER 


IF  THERE  IS  A CHANGE  IN  THE  MAJOR 
MODE,  REGISTER  MODREG  IS  UPDATED 
TO  CONTAIN  THE  NEW  MAJOR  MODE 
NUMBER,  AND  ROUTINE  NOVAC  OF  THE 
EXECUTIVE  PROGRAM  IS  REQUESTED  TO 
INITIATE  THE  EXECUTION  OF  ROUTINE 
DSPMMJOB  AS  A JOB  ACCORDING  TO 
PRIORITY  30.  ROUTINE  DSPMMJOB  WILL 
CAUSE  THE  new  (KEYED-IN)  MAJOR  MODE 
NUMBER  IN  MODREG  TO  BE  DISPLAYED 


SMAvea 

S-3J-i8 

s-sz-ii 


3 


39 


ELAPSED  TIME  MINUS  DELTA  TIME 
COMPLEMENT  0 F R E Vlg  ED  (UN  USED 
UNEXPlREO  OR  REMAININOj  DELTA 


SUBROUTINES  CALLED  WIRCH  ARE 
FLOWED  ON  OTHER  FLOW  CHARTS 


SUBROUTINE 

NAME 

FLOW 

CILART 

DESCRIPTION 

WHERE 

CALLED 

ALARM 

FC-3070 

STORE  ALARM  CODE  AND  TURN  ON  PROGRAM 
ALARM 

SH. 

19 

ALLCOAST 

FC-3440 

INITIALIZE  FOR  COASTING  FLIGHT 

SH. 

28 

CLRADMOD 

FC-3600 

CLEAR  COESFLAG,  DESIGFLG  AND  DISABLE 
RADAR  ERROR  COUNTER 

SH. 

27.  29 

DAPIDLER 

FC-3450 

LM  AUTOPILOT 

SH. 

8 

ENGINOFl 

FC-3840 

TURN  ENGINE  OFF 

SH. 

25,28 

FALTON 

FC-3080 

TURN  ON  OPERATOR  ERROR  LIGHT 

SH. 

24 

INSTALL 

FC-3350 

TEST  AVAILABB-ITY  OF  INTEGRATION 

SH. 

26 

NEWMODEA 

FC-3020 

UPDATE  AND  DISPLAY  MODREG 

SH. 

33 

RELDSP 

FC-3080 

RELEASE  DISPLAY  SYSTEM  FOR  INTERNAL 
CONTROL 

SH. 

27.33 

tf.!' 

|{<N  i AS 

sypK  i:»r.£  v*.  ‘i. 


AC.:C 

CUOAMC'  '»AV  . ■-A’’  .C‘N 


— . -I 


: rRESH  START  AND  RESTART 


LUMINARY  ID 
REV  3 


mo 


FC-3010 

, ;-V.i  3 9 ly  39  ]| 


L 


WAITLIST 


TWIDDLE 

SH.  6 

WAITLIST 

SH.  6 

DLy2 

SH.  7 

FIXDELAY 

SH.  7 

VARDELAY 

SH.  7 

T3RUPT 

SH.  14 

TASKOVER 

SH.  16 

LONGCALL 

SH.  19 

MIT  INSTRUMCNTATICN  LAB 
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WAITLIST 

DRAWN 

PRGMR 

DOCUMENT  NO. 

FC-3040 

ANALST  ^ 

^^3 

APPR■lH?^^■^^,;>Y,A 

WIBig 

REV  [SHEET  1 Of  23  i 

WAITLIST  PKOGIIAM  SECTION 


Tins  WAITLIST  PROGIiAM  SECTION  IS  USEO  FOR  SCHEDULING  AND  EXECUTION  OF 
TASKS.  TASKS  ARE  ROUTINES  WHICH  ARE  EXECUTED  AFTER  A GIVEN  TIME  PERIOD  HAS 
ELAPSED  FROM  THE  TIME  THE  TASK  WAS  SCHEDULED.  THE  TIME  PERIOD  IS  REFERRED  TO 
AS  DELTA  TIME  (OR  AT)  AND  IS  EQUAL  TO  - T,  WHERE  Tj^  IS  THE  TIME  FOR  TASK  N TO 
BE  EXECUTED  AND  T IS  CURRENT  TIME, 


SCHEDULING  USES  ANY  OF  THE  FOLLOWING  SIX  ENTRIES:  FIXDELAY,  VARDELAY, 
TWIDDLE,  WAITLIST,  DLY2-1.  AND  LONGCALL.  THE  ENTRY  USED  DEPENDS  UPON  WHERE  THE 
INPUT  DATA  (DELTA  TIME,  ADDRESS  OF  THE  TASK,  AND  RETURN  ADDRESS  TO  THE  CALLING 
SEQUENCE)  IS  SITUATED  UPON  ARRIVAL,  AND  ALSO  DEPENDS  UTON  THE  SIZE  OF  THE  DELTA 
TIME. 


LONGCALL  IS  INTENDED  FOR  HANDLING  DOUBLE-PRECISION  DELTA  TIMES.  THOUGH 
IT  CAN  ALSO  HANDLE  SINGLE-PRECISION  DELTA  TIMES.  THE  OTHER  ENTRIES  MENTIONED 
CAN  HANDLE  ONLY  SINGLE- PRECISION  DELTA  TIMES.  WAITl.lST  AND  TWIDDLE  WILL  NOT 
ACCEPT  ZERO  OR  NEGATIVE  DELTA  TIMES  (RESULTS  IN  RESTART  VIA  POOIXX)).  FIXDELAY, 
VARDELAY.  AND  DLY2-1  WILL  ACCEPT  ZERO  OR  NEGATIVE  DELTA  TIMES.  BUT  WILL 
SCHEDULE  THE  TA3\  FOR  A DELTA  TIME  OF  163.84  SECONDS  MINUS  THE  ABSOLUTE  VALIFE 
OF  THE  DELTA  TIME.  DELTA  TIME  IS  IN  A FOR  VARDEl^AY.  TWIDDLE  AND  WAIT!. 1ST.  DELTA 
TIME  IS  IN  Q FOR  DLy2-l.  DELTA  TIME  IS  IN  THE  CALLING  SEQirENCE  FOR  FIXDELAY  (^  + 1). 
liELTA  TIME  IS  IN  A AND  L FOR  LONGCALL.  THE  2CADR  OF  THE  TASK  TO  BE  SCHEDULED  IS 
FOUND  IN  THE  CALLING  SEQUENCE  * 1 AND-^+  2)  FOR  TWIDDLE  (GENADR  ONLY  BECAUSE 
TASK  IS  IN  SAME  BANK).  WAITLIST.  AND  LONGCALL.  AND  IN  A AND  L FOR  DLY2-1.  AND  IS 
(not  in  but  actually  is)  THE  CALLING  SEQUENCE  FORFIXDELAY  (^+2)AND  VARDELAY(<r+l ).  THE 
RETURN  ADDRESS  IS  THE  NEXT  LOCATION  AFTER  THOSE  CONTAINING  THE  ADDRESS  OF  THE 
TASK  IN  THE  CALLING  SEQUENCE  OF  TWIDDLE,  WAITLIST.  AND  LONGCALL.  THE  RETURN 
ADDRESS  IS  IN  WAITEXIT  FOR  DLY2-1.  THE  USUAL.  RETURN  ADDRESS  IX)ES  NOT  EXIST  FOR 
FIXDELAY  AND  VARDELAY  UNLESS  THE  LOCATIONS  IN  THEIR  CALLING  SEQUENCES  WHICH  ARE 
SCHEDULED  AS  TASKS  WERE  REFERRED  TO  AS  RETURN  ADDRESSES  WITH  RETURN  DELAYED 
BY  DELTA  TIME  SECONDS. 

SCHEDULING  CONSISTS  OF  COMPARING  THE  EXECUTION  TIME  T,,.  OF  THE  NEW  TASK 

N 

TO  BE  SCHEUULEI)  WITH  THE  EXECUTION  TIME  Tj  OF  TASK  1 (SO  NUMBERED  BECAUSE  IT  IS 
THE  FIRST  TO  BE  EXECUTED  OF  THOSE  TASKS  THAT  WERE  SCHEDULED  AND  NOT  EXECUTED 

YET).  TASKS  1,  2,  3 8 AND  0 WILL  BE  EXECl'TED  AT  TIMES  Tj,  Tj.  Tj Tg  AND  Tg. 

ASSUME  Tg>  Tg  > etc.  UNTILTASKN  ISSCHEDULED,  TIME3  COUNTER  WILL  HA  VE  BEEN  SET 
TO  OVERFLOW  AT  TIME  Tj  FOR  EXECUTION  OF  TASK  1 [TIME3  ■ OCT  -10000  - (Tj  - T)].  THE 
TIME  INTERVAL  BETWEEN  THE  EXECUTION  TIME  OF  EACH  TASK  AND  THE  NEXT  TASK  WILL 
HAVE  BEEN  FLACED  INTO  THE  LSTl  TABLE  AND  THE  2CADR  OF  EACH  TASK  INTO  THE  LST2 
TABLE  AS  FOLLOWS: 


MIT  INSTftUMCNTATION  Ul 
CAMBRIDCC.  MASS. 

APOUO  CUIDANCt  AND  MAVIGATION 

WAITLIST 

vUrhi 

MGMt  J' 

LUMINARY 
L”  ID  ' 

oocuMur  m. 

FC-3040 

AMLST  ^ 

DOCMe 

th/fl/ 

iustf. 

«v  ISNOT  ^ 9’£’6\ 

LSTl  TABLE 


LSTl+2  = -(T.  - T«>  + 1 


LSTl+3  = -(Tg  - T^)  + 1 


= GENA  DR  OF  TASK  1 
= BBCON  OF  TASKl 


».=  2CADR  OF  TASK  2 


2CADR  OF  TASK  3 


2CADR  OF  TASK  4 


, = 2CADR  OF  TASK  5 


= 2CADR  OF  TASK  6 


• 2CADR  OF  TASK  7 


= 2CADR  OF  TASK  8 


= 2CADR  OF  TASK  9 


+ 2a  - 2I  ^ 
+ 2a  - ij 


2CADR  OF  TASK  a 


A SEARCH  IS  MADE  OF  THE  LSTl  TABLE  TO  FIND  WHERE  THE  NEW  TASK  SHOULD  BE  PLACED  SUCH 

\T  T > T«,  a T , . 
a N a-1 

IF  THE  NEW  TASK  (TASK  N)  SHOULD  BE  EXECUTED  BEFORE  TASK  1 (Tj  > Tj^).  THEN 
<U  OCT  40000  - (Tj^  - T)  IS  SET  INTO  T1ME3. 

(2)  -(Tj  - Tpj)  + 1 IS  SET  INTO  LSTl+0;  -(T2  - Tj  ) + 1 IS  SHIFTED  FROM  LSTl+0  TO  LSTl  + 1; 

-(Tg  - Tg)  + 1 IS  SIUFTED  FROM  LSTI  + l TO  LSTl+2:  ETC;  AND  -(Tg  - Tg)  + 1 IS  DISCARI^ED. 

(3)  THE  2CADR  OF  THE  NEW  TASK  IS  PLACED  INTO  LST2+0  AND  LST2  + 1;  THE  2CADR  OF  TASK  1 IS 
SHIFTED  FROM  LST2+0  AND  LST2  + 1 TO  LST2+2  AND  LST2+3,  ETC;  THE  2CADR  OF  TASK  9 IS 
DISCA  RDED. 

(4)  IF  THE  2CADK  OF  TASK  9 WAS  A 2CADR  OF  A REGULAR  TASK  (NOT  A DUMMY  TASK),  A 
RESTART  IS  INITIATED  VIA  BAILOUT  (AN  ABORT),  OTHERWISE  RETURN  TO  THE  CALLER. 


INTO  LSTl+5  REPLACING  -(T.^  - Tg)  + 1.  W'iUCH  WOULD  BE  SHIFTED  INTO  LSTl+6,  AND  THE  TIME  INTER- 
VALS OF  THE  SUCCEEDING  TASKS  WOULD  BE  LIKEWISE  SHIFTED  IX)WN  UNTIL  THE  LAST  ONE,  -(Tg  - Tg) 
+ 1 WOULD  BE  DISCARDED.  ALSO,  THE  2CADR  OF  THE  NEW  TASK  WOULD  BE  INSERTED  INTO  LST2+10 
AND  LST2411,  REPLACING  THE  2CADROF  TASK  6.  WHICH  WOULD  BE  SHIFTED  INTO  LST2  + 12  AND  LST2  + 13 
AND  THE  2CADR’S  OF  THE  SUCCEEDING  TASKS  WOULD  BE  LIKEWISE  SIUFTED  IX)WN  UNTIL  THE  LAST 
ONE.  IF  THE  1J\ST  ONE  IS  THE  2CADR  OF  REGULAR  TASK  (NOT  A DUMMY  TASK),  A RESTART  IS 
INITIATED  VIA  BAILOUT  (AN  ABORT):  OTHERWISE  RETURN  TO  THE  CALLER.  THE  TIME  INTERVALS  AND 
2CADR'S  FOR  TASKS  1 THROUGH  5 WILL  REMAIN  INTAC:T  IN  THEIR  LSTl  AND  LST2  REGISTERS. 

ASSUMING  THAT  T^^  = Tg,  THEN  TASK  5 WOULD  BE  EXECUTED  BEFOR1-:  THE  NEW  TASK.  TASKS 
WHOSE  TIMES  OF  EDCECUTION  ARE  THE  SAME  ARE  EXECUTED  IN  THE  S.-VME  ORDER  THAT  THEY  WERE 
SCHEDULED  - THE  FIRST. ONE  SCHEDULED  IS  THE  FIRST  ONE  TO  BE  EXECUTED  AND  SO  FORTH. 


MIT  iNSTRUMCNTATION  LAI 
CAMMIOCC.  MASS. 


APOLLO  CUIDANCC  AMO  KAVICATION 

WAITLIST 


LUMINARY 

ID 


OOCUMCMT  Na 

FC-3040 


ASSUMING  THAT  Tj^  > T^.  THE  SEAIICII  IN  THE  hSTI  TABLE  WILL  KEVEAL  THAT  THERE  IS  NO 
ROOM  IN  THE  TABLE  FOR  THE  NEW  TASK.  ANH  A RESTART  IS  INITUTEI)  VIA  BAILOUT. 

THE  I.ONGCALL  TASK  IS  USED  Tt)  SCHEDULE  TASKS  WHOSE  DELTA  TIME  IS  IN  DOUBLE 
PRECISION,  WHICH  CANNOT  BE  HANDLED  BY  THE  WAITLIST  (SINGLE -PRECISION ) ENTRY.  LONGCALL 
WILL  HANDLE  DELTA  TIMES  FROM  OCT  00001  (0.  01  SECOND!  TO  [oCT  37777.  OCT  377773  (2.  684,  354.  55 
SECONIiSOR  745  HOURS.  30  MINUTES.  AND  14.55  SECONDS).  THE  LONGCALL  ROUTINE  SCHEDULES 
ROUTINE  LONGCYCL  AS  A WAITLIST  TASK  EVERY  81. 92  SECONDS  (AT  = 81.  92  SECONDS)  IN  A LCX>P 
UNTIL  THE  UNUSED  (REMAINING  OR  UNEXPIRED)  PORTION  OF  THE  DELTA  TIME  IS  LESS  THAN  OR 
EQUAL  TO  81.  92  SECONDS.  THEN  ROUTINE  GETCADR  IS  SCHEDULED  AS  A WAITLIST  TASK  TO  BE 
EXECUTED  AT  THE  END  OF  A TIME  PERIOD  EQUAL  TO  THE  UNUSED  LONGCALL  DELTA  TIME, 

THUS  USING  UP  THE  ENTIRE  LONGCALL  DELTA  TIME.  ROUTINE  GETCADR  WILL  TRANSFER 
CONTROL  DIRECTLY  TO  THE  LONGCALL  TASK.  WHICH  WILL  TERMINATE  WITH  ROUTINE  TASKOVER. 

EXECUTION  OF  THE  TASKS  USES  THE  T3RUPT  ENTRY.  ASSUME  TASKS  1 THROUGH  9 ARE 
SCHEDULED  AND  THEIR  TIME  DATA  AND  2CADR'S  ARE  IN  THE  TIME3  (TASK  1)  COUNTER  AND  LSTl 
AND  LST2  TABLES.  THEN  CX)NTROL  IS  TRANSFERRED  TO  ENTRY  T3RUPT  VTA  THE  LEAD-IN 
INTERRUPT  ROUTINE  AFTER  INTERRUPTING  SOME  ROUTINE  ELSEWHERE.  WHEN  T = Tj.  THEN  OCT 
40000  - (Tj  - T)  IN  TIME  COUNTER  TIME3  WILL  EQUAL  OCT  40000,  THE  OVERFLOW  CONDITION. 
ACTUALLY.  TIMES  WILL  CHANGE  FROM  OCT  37777  TO  OCT  00000  WITH  THE  LAST  (BEFORE  T - T^) 
INCREMENT  OF  THE  TIME  COUNTER.  UTON  OVERFLOW,  INTERRUPT  CONDITION  IS  STARTED.  TIHS 
CAUSES  (1)  THE  INSTRUCTION  AFTER  THE  INSTRUCTION  BEING  EXECUTED  AT  THE  MOMENT  THE 
INTERRUPT  TOOK  PLACE  TO  BE  SAVED  IN  REGISTER  BRUPT,  AND  (2)  THE  ADDRESS  OF  THE 
LOCATION  AFTER  THE  LOCATION  CONTAINING  THE  INSTRUCTION  IN  BRUPT  TO  BE  SAVED  IN 
REGISTER  ZRUPT  (THIS  INSTRUCTION  AND  THIS  ADDRESS  ARE  LATER  RESTORED  BY  INSTRUCTION 
RESUME  WHEN  THE  INTERRUPTED  ROUTINE  IS  RESUMED).  THEN  INTERRUPT  CAUSES  CONTROL  TO 
BE  TRANSFERRED  TO  THE  T3RUPT  LEAD-IN  ROUTINE  FOR  SAVING  CXJNTENTS  OF  CERTAIN  REG- 
ISTERS. CONTROL  IS  THEN  TRANSFERRED  TO  ROUTINE  T3RUPT.  BEFORE  TASK  1 IS  EXECUTED. 
TIME3  WILL  BE  SET  FOR  TASK  2.  THE  TIME  INTERVALS  FOR  EACH  TASK  WILL  BE  SHIFTED  UPWARD 
ONE  REGISTER,  AND  THE  TIME  INTERVAL  (81.92  SECONDS)  BETWEEN  TASK  .9  AND  A DUMMY  TASK 
WILL  BE  PLACED  INTO  THE  LAST  REGISTER  LSTl+7.  IN  ORDER  TO  SET  TIME3  FOR  TASK  2,  THE 
CONTENTS  (T  - Tj)  OF  TIME3,  OCT  37777,  AND  THE  TIME  INTERVAL  -(T2  - Tj)  + 1 FOR  TASK  2 A RE 
ALL  ADDED  TiXJETHER  TO  OBTAIN  OCT  40000  - (T2  - T)  WHICH  IS  PLACED  INTO  TIMES.  IF  TASK  2 
WAS  SCHEDULED  FOR  THE  SAME  TIME  AS  TASK  1 (Tj  = T2)  OR  THE  T3HUPT  WAS  DELAYED  BY  AN 
INIUniT  OR  ANOTHER  INTERRUPT  (T  a Tg),  THEN  ROUTINE  TASKOVER  IS  NOTIFIED  THAT  TASK  2 
SHOULD  BE  EXECUTED  IMMEDIATELY  AFTER  TASK  I INSTEAD  OF  RESUMING  THE  INTERRUPTED 
ROUTINE.  THE  2CADRS  IN  THE  LST2  ADDRESS  TABLE  A RE  SHIFTED  UPWARD,  AND  THE  2CADROF 
A DUMMY  TASK  IS  PLACED  INTO  THE  LAST  TWO  REGISTERS  LST2  + 16D  AND  LST2  + 17D.  CONTROL  IS 
THEN  TRANSFERREI>  TO  TASK  1 AT  THE  LOCATION  WHOSE  2CADR  WAS  IN  REGISTERS  LST2+0  AND 
LST2+1  (THE  TOP  OF  THE  LIST).  THEN  THE  TASK  IS  EXECUTED. 

ALL  TASKS  TERMINATE  IN  A TRANSFER  OF  CONTROL  TO  ROUTINE  TASKOVER.  IF  T » T2  WHEN 
CONTROL  ARRIVED  AT  T3RUPT  TO  EXECUTE  TASK  1,  THEN  CONTROL  WILL  PASS  FROM  ROUTINE 
TASKOVER  TO  T3RUPT2  LOCATION  OF  T3RUPT  TO  INITIATE  THE  EXECUTION  OF  TASK  2.  SET  TIME3 
FOR  TASK  3,  AND  SHIFT  THE  LSTl  AND  LST2  TABLES  UPWARD.  OTHERWISE.  ROUTINE  TASKOVER 
WILL  TRANSFER  CONTROL  TO  ROUTINE  RESUME  TO  RESTORE  ORIGINAL  CONTENTS  OF  CERTAIN 
REGISTERS  FOR  RESUMING  THE  EXECUTION  OF  THE  INTERRUPTED  ROUTINE.  LAST,  CONTROL  IS 
TRANSFERRED  TO  THE  INTERRUPTED  ROUTINE. 


IF  THE  TASK  TO  BE  EXECUTED  WERE  NOT  A REGULAR  TASK,  BUT  INSTEAD  A DUMMY  TASK. 
THEN  DUMMY  TASK  SVCT3  WOULD  BE  EXECUTED,  IF  NO  GYRO  COMPENSATION  IS  REQUIRED. 
CONTROL  IS  TRANSFERRED  TO  ROUTINE  TASKOVER.  OTHERWISE,  SVCT3  SCHEDULES  (VTA  TC 
NOVAC)  ROUTINE  NBIXJNLY  AS  A JOB  (PRIORITY  39)  TO  COMPENSATE  FOR  NBD  COEFFICIENTS 
ONLY.  IF  IMUSTALL  IS  NOT  AVAILABLE.  THEN  A REGULAR  TASK  WILL  BE  SET  UP  VTA  FIXDELAY 
WITH  A DELTA  TIME  OF  FIVE  SECONDS  TO  COME  BACK  AND  AGAIN  ATTEMPT  TO  SCHEDULE  JOB 
NBDONLY.  IF  IMUSTALL  IS  STILL  NOT  AVAILABLE,  ANOTHER  TASK  WITH  FIVE-SECOND  DELAY  IS 
SCHEDULED.  AFTER  THE  DELAY  IS  SET  UP  OR  AFTER  THE  JOB  NBDONLY  IS  SCHEDULED.  CONTROL 
IS  TRANSFERRED  TO  TASKOVER. 


SUMMARY  OF  THE  TWO  SALIENT  OPERATIONS 

SCHEDULING  A NEW  TASK:  THE  DELTA  TIME  OF  THE  NEW  TASK  IS  T.,  - T • AT... 

N N 

IF  T^_j  ^ TIME  INTERVAL  -(Tj^  - T^.jHl  REPLACES  -(T^  - T^  ^Kl  AND  -(T^  - T^^Hl 

REPLACES  -(T^.,  - T^)+l.  WHICH  IN  TURN  REPLACES  -(T  - T ^,)+l.  ETC.  IN  THE  LSTl  TABLE 

a"*"!  a a-r£  flf  + I 

IF  Tj  > Tjj,  THE  TIME  INTERVAL  COUNTER  VALUE  OCT  40000  - (Tjg  - T)  REPLACES  OCT  40000  - (T^  - T 
IN  TIME  COUNTER  TIME3  AND  -(Tj  - Tj^)+1  REPLACES  -(Tj  - Tj)+1,  WHICH  IN  TURN  REPLACES 
-(Tg  - TgHl.  ETC.  IN  THE  LSTl  TABLE.  IF  Tj^  > Tg.  THERE  IS  NO  ROOM  IN  THE  LST  TABLES  FOR 
THE  NEW  TASK,  AND  A RESTART  IS  INITIATED. 

INITIATING  THE  EXECUTION  OF  A TASK<TASK1):  THE  -(Tj  - T^)  + 1 IN  THE  TOP  OF  THE 

LSTl  TABLE,  THE  (T  - Tj)  IN  TIMES  (T  » Tj)  AND  OCT  37777  ARE  ADDED  TOGETHER  TO  OBTAIN 
OCT  40000  - (Tg  - T)  TO  BE  SET  INTO  TIME3  FOR  TASK  2 AND  ALL  OTHER  TIME  INTERVALS  IN  THE 
LSTl  TABLE  ARE  MOVED  UP. 


MIT  INSTRUMOffATlON  lAt 
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loftAVM 


[AtCMA  r. 
ANAIST 


loOCMR 


f 


AMUjO  midmci  am  navnaticn 


WAITLIST 


LUMINARY 

ID 


■OCUAKNr  NO. 

FC-3040 


isHtn  a ofgTl 


lAPfA' 


main  (detailfd)  tlow  chart 

ENTRIES  TWIOOLE  AMOWAITCIST  ON  THIS'  SHEET  AND  DLYl-i  , ElKDCLAV  AND 
VAROELAY  ON  NEXT  SHEET  APE  USED  FOP  SCHEPULIHG  TASKS 


ENTERED  FROM  S LOCATIONS 
WITH  A s DELTA  TIME 


WAITLIST  ENTRY  ENTERED  FROM 
S8  LOCATIONS  WITH  A*  DELTA  TIME 


CALLING  SEOUEHCC: 


TWIDDLFI 


-I  CA  4e*N 
+ 0 TC  TWIDDLE 
41  AORES  OF  TASK 
+ 2 RCLIHT  (return 

HERE  UNCONDITION-I 
ALLY 


INHIBIT 

INTER- 

RUPTS 


jC  ±H  OCT  XXXXX  CENTI- 
SECONOS  (DELTA 
time) 


DECRE- 
MENT 
Q BY  1 


MOTE  : 

IF  THF  TASK  IS  IN  THE 
SAMF  E BANK  AND 
FBANK  AS  THE  ROUTINE 
THAT  INITIATED  THE 
SCHEDULING  OF  IT,  USE 
TWIDDLE  ENTRY.  IF 
EITHER  BANK  IS  DIF- 
FERENT, USE  WAITLIST 
ENTRY, 


Q 3 af  -f  o 


SUPERBNK 


BBCON  AND 
SUPER  BANK  OF 
CALLER 


CALLING  SEQUENCE  : 

jf-1  CA  Jf  A M 
^ +0  TC  WAITLIST 
je4j  genadroftask 

je4  2 BBCON  OF  TASK 

Jf+B  relint(return 

HERE  UNCOHDITION 

ally) 


OCTXXXXX  CENTI- 
SECONDS  (DELTA 

time) 


WAITLIST 

INH 

IMT 

RUf 

I8IT 

EB- 

»TS 

WITH  ALL  GROUPS 
INACTIVE 


WAITEXIT  0 

T 

1 ” 

WAITEXIT  CONTAINS  dE-fO  WHERE 
aC  CONTAINS  TC  TWIDDLE 
OR 

WAITEXIT  CONTAINS  JC4l  WHERE 
ae  CONTAINS  TC  WAITLIST 


VIA  TWIDDLE 


Q « DELTA  TIME  IN  CCNTISECONOS 


VIA  waitlist 


(<  ♦ 0 


GENADR 
OF  TASK 


iBcor} 


NEXT  SHEET 


MIT  tNSTXUMCNTATION  lAt 
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AAOUO  CUIOANCC  AND  NAVWATION 

WAITLIST 

riKMi  J. 

LUMINARY 

ID 

DocuMcm  m. 

FC-3t)40 

AMIS?  ^ / 

DOOW 

R£v  iSHcn  0 or 23 

MAIN  (oFTAILED)  flow  CHART 


FROM  preceding 
SWEET  AND  FROM 
LOCATION  OK20ELAY+fe 
OF  ROUTINE  DELAYJOB 
OF  SERVICE  ROUTINES 


ENTERED  FROM 
13  TASKS  WHICH 
TERMINATE  IN 
FIXDELAY  WHICH 
SCHEDULES  sC-i-Z 
AS  A TASK 


ENTEPFD  FROM  S TASKS  WHICH 
TERMINATE  IN  VARDEL AY  WHICH 
IN  TURN  SCHEDULES  Sd’+l  AS 
A TASK  - A DELTA  TIME 


OLY2-1  IS  ENTER-  DLY2-1  j 

EO  WITH  QsDELTA^ 

TIME,WAITEXIT  * 

RETURN  AODRESSANO 

lJ  = e CAOR : 

OF  TASK  WAITAOR  


CALLING  sequence:  CALLING  SEQUENCE: 


^C-fO  TC  FIADELAY 
atf  + l DEC  YYXyX 

CENTISECONDS 
GEMAOR  rf  + 2 IS  SCHEDULED 

OF  TASK  ASA  TASK  HAV- 

ING ITS  DELTA 
TIME  IN  aC  -fl  . 

A — — (af + 1)  I DELTA  TIME 


rf-1  CAF  ae’iN 
a^TO  TC  VARDELAV 
ae+1  IS  SCHEDULED  AS 
A TASK  HAVING 
ITS  DELTA  TIME 
IN  A 


Q + 2 
WHERE  » TC 
FIKDELAY 


Q ■ ac  +l 
WHERE  aCr  TC 
VARDELAV 


WAITAOR* 

Q — 


WAITADR  contains  GENAOR  OF 
TASK 

q CONTAINS  DELTA  TIME  IN 
CENTl  SECONDS 


A SUPERBNK 


BBCON  AND  SUPER  BANK  OF 
CALLING  SEQUENCE  WHICH  IN 
THIS  CASE  IS  THE  TASK  TO  BE 
SCHEDULED 


BBCON  AND  SUPER  BANK 
OF  CALLING  SEQUENCE 


WAITEXIT— — *TCF  TASKOVER 


SET  TO  TERMINATE  FIXOELAY 
AND  VARDELAV  WITH  A TRANS- 
FER TO  TASKOVER  AFTER  jC+l 
(where  5C=TC  VARDELAV)  ORjf42 

(where  if  =TC  FIK  delay)  HAVE 
BEEN  SCHEDULED  AS  A TASK 


A— BBANK  BBCON  OF  CALLING  SEQUENCE 


B8AHK-* — BBCON  OF  WAITl 


WAITBANK— — A BBCON  OF  CALLING  SEQUENCE 


NEXT  SHEET 


MIT  INJimiMCNTtTICM  Ui 
CAMMIOCE  MASS. 


ANXIO  CUIDANCC  ANO  NAVtCATION 


WAITLIST 


LUMINARY  BOCUMtMTNa 
ID  tFC-3040 


lAP?«'n 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN 


PRGMR  S 
ANALST  _ 
DOCMR  _2^ 


APPR^DPm'^^:^t.. 


W/s/70 


APOLLO  GUIDANCE  AND  NAVIGATION 

WAITLIST 


DOCUMENT  NO. 
FC-3040 
IStffET  8 Of  23 


LUMINARY  ID 

REV 


FROM 

PRECEDING  SHEET 


TIME3  = OCT  40000  -(T^-T)  IF  TIMES  DIO  NOT 
OVERFLOW  DUPING  CURRENT  INHINT. 


IS  ' 
A > +0 

\ 7 / 


CURREMT  INHINT.  T„  > Tj 

WHERE  T = CURRENT  (nOw)  TIME 

“r^,T,  , Tj  , T,  , ETC. = TIME  FORNE\%1ST(nEX1), 
2N0,  3RO,  EOT.  TASK 
TO  BE  EXECUTED. 

OCT  too  (dec  128)  IS  A VALUE  GREATER  THAN  THE  HIGHEST 
POSSIBLE  value  TIME3  COULD  HAVE  NOW  IF  OVERFLOW 
OCCURRED  SINCE  CURRENT  inhibit  OF  INTERRUPTS  WAS 
STARTED.  IFTHE  NEXT  TASK  HAD  THE  LARGEST  ALLOW- 
ABLE DELTA  TIME,  162. S SECONDS,  TIME3  WOULD  CON- 
TAIN OCT  206  . THEREFORE  , OCT  200  IS  A VALUE  LESS 
THAN  THE  SMALLEST  VALUE  TIME3  COULD  HAVE  I F OVER- 
FLOW DID  NOT  OCCUR.  THUS  0CT200  IS  ACCEPTABLE 
TO  USE  AS  A BREAK  POINT. 

PROCEED  TO  COMPOTE  -(Tj-T)  + 1 FOR  EITHER 
OVERFLOW  OR  NO  O VE  R FL  O W C O N Dl  Tl  ON  . 

DIO  TIME3  OVERFLOW  DURING 
CURRENT  INHIBIT  OF  INTERRUPTS? 


A » OCT  200  + T,  -T 


= OCT  40177 + T,  -T 


A » OCT  37600  + T-  Tj  - 
» T-T^  + OCT  37577 


A-* A 

i-  1 

1 

A-^ — A + 

OCT  40001 

X 

A ^ ^ 1 

-T+  OCT  177 


♦ OCT  177 
« T^-T  + OCT  40200 


-T,  ♦ OCT  37577 


-A  + 0CT40201 


A = T-Tj  + OCT  37577  + OCT  40201 
» T-T^  + OCT  37577  - OCT  37576 
- T-T^  + l = -(Ti-T)  + 1 


A = Ct-T^  + 0 + CTh  -T]  ' T„  -T^  ♦ 1 

T^-Tj  IS  THE  OIFFERCNCE  BETWEEN 
THE  TIMES  OF  EXECUTION  OF  THE  NEW 
TASK  and  task  1 (1ST  TASK) 


NEXT  SHEET 


MIT  INSTtUMOfTATION  lAt 
CAMMIDCC.  MASS. 

MAMM  A ) 

PUCMljr.  . 

ANXIO  CUIOANCC  AMD  MAVIDATION 

WAITLIST 

luminary!  OOCUWfTMO." 

ID  FC-3040 


PROM 

PRECEDING  SHEET 


FtND  PLACE  IN  L5T1  TABLE  OF  T»ME 
INTERVALS  FOR  THE  NEW  TASK 


> T^  S "^1 

I INDEX  XI  * i 


'3  ^ s 'I 

Tndcx  XI 


(^WTLSTSj  A = Ty  - T,  + 1 

i .should  task  2 BE  EXECUTED  PRIOR  TO  THE  NEW  TASK  7 
NO  C IS  T,  5 7) 

— A>  + 0 > 

YES  g LSTl +1  = Tj-Tj  + 1 

A^A-1  ■>■  (LSTl-f  1)  I A =Ct„-T,  + i]-1  +[Tj-T3+i3  - T^-Tg+l 

i SMOULD  TASK  3 BE  EXECUTED  PRIOR  TO  THE  NEW  TASK? 
NO  C'S  T3  ^ T„  7) 

~^A  >+0  ■> 

1;  YES  g Tj  LSTl+Z  =T, -T.  + 1 


A-^A-l  + (lSTI+Z) 


A = T„  - T . + 1 


Y"*  > Tm  2 T3  NO 

7nOEX  X 1 * 3 ' 


i SHOULD  TASK  A BE  EXECUTED  PRIOR  TO  THE  NEW  TASK? 
(IS  T^  S 7) 

1;  '^ES  T^gT^  LST1+3-T.  -T.,+1 


A-^A-1  + (LSTl  +3) 


75  > •^H  ^ T*  NO 
Index  xi=4  ' 


A > + o 
\ 7^ 


SHOULD  TASK  5 BE  EXECUTED  PRIOR  TO  THE  N EW  TASK  7 
. (IS  S T„  ?) 


YES  T„  > T. 


LSTl-l-4  = T-  -T-  +1 


A^-A-l  + (lSTI  +4j  A«T^-Tj+1 


INDEX  Xl=5 


t SHOULD  TASK  6 BE  EXECUTED  PRIOR  TO  THENEW  TASK? 
NO  /''isV  (ist^4t„7) 

r — <(  A > + 0 > 

Y '''h  ? LSTl +5  = T^-T^  + l 

A-^A-1  -I-  (LSTl  +5)  A = T„  - T,  + 1 


T > Ty  2 T-  NO 
■ndex  xi-^ <^V° 


> SHOULD  TASK  ■/  BE  EXECUTED  PRIOR  TO  THE  NEW  TASK  7 
S\.  (lST^^T„?) 


LST1+  6 = T,  -T-  41 


A-»-A -1  + (LSTI+6)  A=T„-Tg+1 


t SHOULD  TASK  8 BE  EXECUTED  PRIOR  TO  THE  NEW  TASK  7 
T,  > T,  g T,  NO  ('STgiT^?) 

INDEX  XI  = r 

'<ES  T„  2 T. 


A-^A  -1  + (LSTI  + 7)  A=T„-T,  + 1 

X SHOULD  task  9 (last)  BE  EXECUTED  PRIOR  TO  THE  N EW  TASK? 


■^9  ^ Th  5 T*  NO 
'index  XI  s e ' 


^ A”T4^-T„-1  IFX1  = 3 

NEXT  A =T, -Th-1  IFX1=  A 

SHEET  A = T,  -Tg-1  IFXl  = 5 


('S  T,  i T„  7) 


A»T^  -Tg-1  IFXl-6 


FILLED 

rsFT^  j 


NO  REGISTER  IN  LIST  AVAILABLE  FOR  NEW 
TASK -TOO  MANY  TASKS 
rofm  TURN  ON  PROGRAM  ALARM  LIGHT 

^ AND  SET  ALARM  CODE  OCT  SIEOS 

INTO  ONE  OF  THE  FAILREG 

registers  so  it  is  available 
FOR  DISPLAY. 


RESULTS  IN  RESTART 
VIA  GOPROGZ 


A = To-Tm-1  if  XI  » 8 


Hlfr  FROM  SHEET  IS 


MIT  INSTRUMCNTATION  Ut 
CAMIRIDGt  MASS. 


Araio  6UIOANCC  AND  MVIGATION 


WAITLIST 


DOCUMOff  NO. 

FC-3040 


dHiiEXfeil 


FROM 

PRECEDING.  CHEET 


q WILL  BE  I Z 

USED  AS  AN  INDEX 
AND  IS  HERE  AFTER 
REFERRED  TO  AS  XI 
SEE  TABLE  AT 
RIGHT  FOR  ITS  f— p— 
VALUE. 


(see  note)] 


(LSTI-1  +xi)  — 

A + 1 + (lSTI-1  TXl) 


A PLACE  HAVING  BEEN  FOUND  IN  THE  LSTJ 
TABLE  FOR  THE  NEW  TASK  , PROCEED  NOW 
TO  COMPUTE  THE  TIME  INTERVAL  BETWEEN 
THE  NEW  TASK  AND  TASKS  BEFORE  AHP  AFTER  IT. 

r^-1  WHERE  c<  r XI  4.  1 and  Xi  IS  AN  INDEX  DETER- 
MINED IN  WTLST5  AND  IS  EITHER  1,2,3,4,E, 
*>,  T,  OR  8 ( SEE  TABLE  BELOW)  J 
L 5T1-1  + X1  T STl-l  + Xl 

XI  (before)  (now) 


- (Ti-  Tm)  +1 

- (T,  -T„)  +1 

- (T*  -Tm)  +1 

- C -tJ  +1 

- (T,  -Th)  +1 

- CTj  -tJ  +1 

- (T, 


IF  X 1 « 1 
IF  X 1 = 2 
IF  X 1 » 3 
IF  X 1 = 4 
IF  XI  = 5 
IF  XI  = 6 
I F XI  « 7 
IF  Xl=  8 


XI  • O 

NEW  TASK  WAITING  EXECUTION 


FROM  WAIT2  ON  SHEET  12 
WITH  A • T„  - T,  + 1,  T,  > 1 


SHIFT  THE  CONTENTS  OF  EACH  OF  SOME  OR  ALL  LSTl 
REGISTERS  TO  THE  NEXT  LSTl  REGISTER  TO  ACCOM- 
MODATE THE  VALUE  FOR  THE  NEW  TASK. 

"I  THE  VALUE  FOR  THE  MEW  TASK  IS  T„-T;t+1 

IN  A.  oC  IS  determined  BY  THE  CONDI  TI  ON 

"’’h  S T^-i  • the  value  T„-T^+1  IS 

PLACED  INTO  REGISTER  LSTl+K-1  SO  THAT 
-]  TASK  N WILL  BE  EXECUTED  T^-T^.J  CENTI- 

J SECONDS  AFTER  TASK  .K-l  AND  T^- T„  CENTI- 

SECONDS  BEFORE  TASK  ot  . THE  FORMER 
CONTENTS  OF  LSTl+ot-1  WILL  BE  SHIFTED 
TO  LSTl  + ot  +0  , THE  FORMER  CONTENTS 
I 0FLST14-<K+0  TO  LSTl  + <+1  , LSTl +.4+1 

TO  LSTl+<X  + 2 , ETC.  TO  THE  END  WHERE  THE 
former  CONTENT  OF  LSTl  +7  IS  LEFT  IN  A 
AND  LOST  THEREAFTER.  oC  IS  EITHER  1, 

“I  2,3,...  ,7,80R9.LST1  REGISTERS, 

J IF  ANY,  PRECEDING  LST1+ ot-i  REMAIN 

UNCHANGED. 

LSTl  + o<-l.« (T,t-T„)  + 1,  IF  XI  - 1 

UPON  ARRIVAL 


IF  XI  = G 


IF  XI  » 7 


NEXT  SHEET 


INTERRUPTED  ROUTINE  SEQUENCE 


NOT  PART 
OF 

waitlist 

PROGRAM 


PPOM 

INTERRUPTED  ROUTINE  '-^TRUCTION  PEIM^  EXECUTED  WNEN 

OVE“RFLOWS.''D'L?TA^VMe"  PIPED.  ^ + 1 IHSTRUCTYorTO  RE  EXECUTED  FIRST 

UPON  RESUMING  INTERRUPTED  ROUTINE} 

TarT.  ■ 


SAVE 
A AND  L FORl 

interrupted! 

ROUTINE 

SAVE  BBCON 
OF 

IMTERRUPTEDi 
ROUTINE 


C 




5AVF  NEXT  INSTRUCTION  (3  AND  ADDRESS 

1 

JC  + Z IN  BRUPT  AND  7RUPT,  RESPECTIVELY. 

■V  m 1 o -v  _ 

— D 

> ^ 

HARDWARE  ACTION  AUTOMATICALLY  PER- 

I 

J 

FORMED  AT  beginning  of  INTERRUPT.  SEE 

3 


L_-:- 

1 

bbank- 


BBCON  OF  T3RUPT 


NOTE  at  bottom  RIGHT  OF  S MEET  19  . 
NOTE  : 

IF,  WHEN  TIME  COUNTER  TIME3 
OVERFLOWS  , INTERRUPTS  ARE  INHIBIT- 
ED BY  AN  INHINT  OR  ANOTHER  INTER- 
RUPT IS  IN  PROGRESS  AND/OR  WAmMG 
(T*  , Tp)  , TRANSFER  OF  PROGRAM  CON 
TROL  TO  LOCATION  4014  WILL  BE 
DELAYED  UNTIL  THE  INHIBIT  IS  RE- 
LEASED ( RELINT^  OR  INTERRUPT  IN 
PROGRESS  IS  TERMINATED  AND/oR 
T6  OR  TS  interrupt  IS  ALSO  COM- 
PLETED IF  WAITING 


interrupt  lead  in  routine 


^T3RUP^ 


ROUTINE  T3RUPT  CAUSES  PROGRAM  CONTROL  TO  BE 
TRANSFERRED  TO  TASK  1.  ALSO,  IT  MOVES  THE  TIME 
INTERVAL  DATA  AND  ZCAQR  FOR  THE  REMAINING 
SCHEDULED  TASKS  UPWARD  ONE  PLACE  IN  THE  LSTl  AND 
LSTZ  LISTS  SO  TASK  Z WILL  BE  READY  NEXTTiME  TIME? 
OVERFLOWS  . 


7-S 


SUPER8NK 


bankrupt  — A 

ORUPT  - 

Q 

SUPER  BANK  AND  BBCON  OF 
INTERRUPTED  ROUTINE  COMBINED 
TOGETHER  AND  SAVED  IN  BANKRUPT. 


SAVE  Q 


MOVE  TIME  DATA 


FROM  ROUTINE  TASKOVER  ON  SHEET  16 


SCHEDULE  TASK  SVCT3  (SH  ZO)  TO  BE  EXECUTED 
81.93  SECONDS  AFTER  THE  EXECUTION  TIME  OF  THE 
TASK  WHOSE  GENADR  IS  IN  LOCATION  LST2.  -f  14 


UPWARD  ONE  REGISTER  IN  LSTl  TABLE 


LST1T7  e OCT  57777# 
LSTl  + 6 = 

LSTl+5=  “C'r8-T"7)  + 1 
LSTl  + 4 «*  - 

LSTl+3  - -(Tj-TB)i-l 
LSTl  + Z = - (Tg-T4)+1 
LSTl  +1  = - - T3)  T1 

LST1+0«=-(T3 

A --(Tj-tJ+I 


DUMMY  TASK  SVCT3 
TASK  9 
TASK  8 
TASK  7 
TASK  6 
TASKS 
TASK. 

TASK  3 
TAS  K 2 


MEXTSHEET 


* - (Tp  -T,)  + 1 « OCT  57777 
OR  (Tp  - T,}  = - OCT  5 777«  = 

OCT  20001  OR  81.93  SECONDS 
WHERE  To  IS  EXECUTION  TIME 
OF  DUMMY  TASK  SVCT3  CWILL  BE 
EXECUTED  81  - 93  SECONDS 
AFTER  TA  SK  9) 


MIT  IMSTRUMMATION  lAI 
CAMBRIKt.  MASS. 

APOU0  SUIOANCC  AND  NAVIGATION 

WAITLIST 

PIIOM«_?', 

LUMINARY 

ID 

DOCUMENT  NO. 

FC-3040  . 

AIKIST 

OOCMR 

XPPB'OPWYVC.^l., 

042 

REV  |SHFCTl40f23l 

FROM 

PRECEDING  SHEET 


THE  FOLLOWING  OPERATIONS  WILL  REVEAL  WHETHER  TASK  Z 

should  be  executed  immediately  after  task  i or 
WHETHER  the  interrupted  ROUTINE  SHOULD  BE 
resumed  after  task  1 


TIME3 


A 


= TIME  CcENTISECONDsJ  elapsed  SINCE  OVERFLOW^ 
T-Tj^  = OCTOOOOO  IF  NO  DELAY  (iNHINTOR  OTHER 
INTERRUPTS^  AND  PROBABLY  NO  MORE  THAN 
OCT  00002  IF  THERE  IS  A DELAY. 

= 

= CURRENT  TIME  (NOW^ 

= EXECUTION  TIME  OFTASK  l 
= EXECUTION  TIME  OF  TASK  2 


A — OCT  37777  + A 


THIS  OPERATION  WILL  PRODUCE 
AN  OVERFLOW  CONDITION 
IN  A ONLY  IF  Tj  =Tj 


A— TIME3  + A 


OVERFLOW  WOULD  OCCUR  IN  A 
IF  THE  ELAPSED  TIME  (COUNTED 
UP  BY  TIME  3)  IS  EQUAL  TO  OR 
GREATER  THAN 


SHOULD  TASK  2 BE  EXECUTED  IMMEDIATELY  AFTER  TASKl? 
g.  (has  DELTA  TIME  FOR  TASK  2 EXPIRED  ? -HAS  DELAY 
'A  CONTAINX.^*''^^*’^'’  time  INTERVAL  BETWEEN  TASK  1 AND  TASK  2^ 
OVERFLOW. 


(■^2-Ti)>(t-T,) 
T,  >T 


INDICATES  TO  ROUTINE 
TASKOYER  THAT  TASK  2 
SHOULD  BE  EXECUTED 
IMMEDIATELY  AFTER 
EXECUTION  OFTASKl 
WITHOUT  RETURNING 
CONTROL  TO  THE 

interrupted  routine 

BETWEEN  THE  TWO  TASKS 


RUPTAGN- 


INDICATES  TO  ROUTINE 
TASKOYER  (SHEET  ISj 
THAT  PROGRAM  C0NTR0L| 
SHOULD  BE  RETURNED 
TO  THE  INTERRUPTED 
ROUTINE  IMMEDIATELY 
AFTER  EXECUTION  OF 
TASK  1 RATHER  THAN 
RETURNING  TO 
EXECUTE  TASK  2 


NEXT  SHEET 


MIT  INSTIHlMCmATION  lAI 
CAMWIDGf.  MASS. 

APOUO  CUIDANCC  AND  NAVIGATION 

WAITLIST 

nauiS 

C O ' 

LUMl.VAFTr 

ID 

DOCUMENT  HO. 

FC'3040 

AMALST  ^ 2 

DocMR 

APPII'D(2\\\^^..^^n. 

REV  |SHfETlt)0E-23 

FROM 

PRECEDING  SHEET 


ICa,  l]-i—  2 

::adr  SVCT3 

ClST2+16D,H 
(^LST2  + 14D,  4 
[^LST2  + 12D,4 
[JlST2  4 100,4 
QlST24  80,4 
[LST246,  4 

[^LST244,  4 

[[LST242,  4 

QlST240,  4 

— 

H70]r!=^[A.L] 

i3D]:r;:i;0,^ 

1 1 [a.l] 

9d3^[a,l] 
73=^  [a,l] 

3 : ^:a.l] 

1]  :=:;^Ca.l] 
— 

SET  OP  address  (2caor)  of  dummy  task 
SVCT3  FOR  LAST  (bottom^  Resister  OF 
LST2  tabue  (table  of  addresses  of 
tasks  waiting  for  execution  - waiting 
FOR  their  delta  times  to  expire) 


MOVE  addresses  of  tasks  upward 
IN  LST2  table 

ClST1  + 16D,  + 17o]  =2CA0R  OF  SVCT3  (DOMMYTASK) 
[lSTZ+14D,+1Sd3  tiZCADR  OF  TASK  9 
[LST2  + 12D,+13q]  =2CADR  OF  TASK  8 
[]lST2+10D,+11d|  =2CADR  OF  TASK  7 
[lSTZ  + BD  , + 910  «2CADR  OF  TASK  € 
[[LST2+6,  +7j  =2CADR  OF  TASK  5 
QlST2  + 4,  = 2CA0R  of  TASK  4 

fLST2+2,  +3]  =2CADR  OF  TASK  3 
QlST2  + 0,  TlJ  cECADR  OF  TASK2 

I^A  , lJ  = 2CAOR  OF  task  1 WHICH  WILL  BE 
EXECUTED  NOW 


SUPERBHK- 


NOT  PART  OF 
PROGRAM 
WAITLIST. 

TASK  1 IS  A 

task  so 
numbered 

BECAUSE  IT 
IS  the  FIRST-^ 

TO  BE  EXECUT-' 

ED  OF  THOSE 
TASKS  THAT 
WERE  SCHED- 
ULED AND  NOt'~ 
EXECUTED  yet. 


IF  TASK  1 IS 
DUMMY  TASK 


V 


TASKl 


re  XECUTE  INSTRUCTIONS 
I CONTAINED  IN  CODING 
I FO  R THIS  ROUTINE 


SET  SUPERBNK  WITH  SUPER  BANK 
OF  TASK  1. 

EXECUTE  TASK  WHOSE  ZCADR  IS  IN  A AND  L. 

^ TO  SVCT3  (DUMMY  TASK)  ON  SHEET  20. 

NOTE  : PROGRAM  CONTROL  IS  TRANSFERRED 
TO  THE  LOCATION  WHOSE  2CADR  IS 
IN  A (GENADR)  AND  L (B8C0N). 

THUS  TASK  1 IS  NOW  EXECUTED.  TASK  1 
IS  ANY  ROUTINE  THAT  WAS  SCHEDULED  AT 
CENTISECONDS  AGO  BY  WAITLIST,  THE  TIME 
NOW  Tg  Tj  ,THE  EXECUTION  TIME  OF  TASKl. 

FROM  LON6RTRN  ON  SHEET  22  OR  SVCT3 
(dummy  TASK)  ON  SHEET  20  . 


ALL  TASKS  TERMINATE  WITH  A TRANSFER 

(tc  taskover)  of  program  control 

TO  ROUTINE  TASKOVER.  * 

SHOULD  TASK  2 BE  EXECUTED  NOW  BEFORE  RETURN  TO 
INTERRUPTED  ROUTINE?  (DI  D DELTA  TIME  FOR  TASK  2 


NO 


RETURN  TO 

INTERRUPTED 

ROUTINE 


EXPIRE  WHEN  RUPTAGN  WAS 
SET  IN  ROUTINE  T3RUPT2 
ON  PRECEDING  SHEET?) 


SET  BBANK  FOR 

routine  T3RUPT2 

! —3 

PRECEEO  TO 
EXECUTE  TASK  Z. 


RESTORE  SUPER  BANK 
OF  INTERRUPTED 
ROUTINE 


NEXT 

SHEET 


note:  task  z should  now 
BE  referred  to  as 
task  1 BECAUSE  IT  IS 
THE  FIRST  TO  BE  EXECUTED 
OF  THOSE  TASKS  THAT  WERE 
SCHEDULED  AND  NOT  EXE- 
CUTED YET.  LIKEWISE, 

TASK  3 BECOMES  TASK  2, 
AND  SO  FORTH. 


« ROUTINE  TASKOVER  IS 
ENTERED  FROM  73 
LOCATIONS  DIRECTLY. 


MIT  INSTRUMCNTATiON  lAI 
CAMMIOGC  MASS. 

AfOLlO  eUlMNCt  A»  IMVI6ATI0N 

WAITLIST 

f/j/A 

Pi««»«  .S'  -u-- 

LUMINARY 

ID 

DOCUMENT  MX 

FC-3040 

AHM.ST  ^ 

DOCMH 

f/tArn 

illSj'lt 

wv  iSHKTlbOf  23' 

FROM 

PRECEDING  SHEET 


PREPARE  TO  RESUME  EXECUTION  OF  INTERRUPTED 
routine  by  RESTORING  TO  REGISTERS  <9,  BBANK, 
A AND  L THE  CONTENTS  THEY  HAP  AT  THE  TIME 
THE  INTERRUPTION  OCC  U RR  ED  - TH  E S E CONTENTS 
WERE  SAVED  BY  THE  INTERRUPT  LEAD-IN  ROUTINE 
AND  THE  INTERRUPT  ROUTINE  . 


RESTORE  Q 


NOW  LEAVING 
INTERRUPT  MODE 


SET  UP  TO  EXECUTE  NEXT  INSTRUCTION 
OF  INTERRUPTED  ROUTINE 


INSTRUCTION  RESUME  (COMPRISES  THESE  i 

TWO  operations) 

i 

THE  RESUME  INSTRUCTION  TAKES  THE  INSTRUCTION  IN 
BRUPT  AND  places  IT  INTO  B TO  BE  EXECUTED  NEXT  i 
THUS  RESUMING  THE  INTERRUPTED  ROUTINE  . ALSO, 
THE  ADDRESS  OF  THE  LOCATION  NEXT  AFTER  THE 
LOCATION  CONTAINING  THE  INSTRUCTION  ( IN  B)  TO  BE  [ 
EXECUTED  FIRST  UPON  RESUMING  THE  INTERRUTED 
ROUTINE  IS  TAKEN  FROM  T RuPT  AN  D PL  AGED  1 NTO  Z . | 


BRUPT 

ZRUPT 


} 


RELEASE 

INTER- 

RUPT 


(resume^ 


o — — 

- ORUPT 

NOTE  : 

REGISTERS  BRUPT  AMD  ZRUPT  WERE  LOADED  WITH  THE 
CONTENTS  OF  B AND  Z,  RESPECTIVELY,  BY  HARDWARE 
ACTION  IMMEDIATELY  AFTER  THE  INTERRUPTION  OF  j 
THE  INTERRUPTED  ROUTINE  BEGAN  AND  BEFORE  CON-  j 
TROL  WAS  TRANSFERRED  TO  THE  INTERRUPT  LEAD-IN  j 
ROUTINE  . THUS  , 

BRUPT*=  » NEXT  INSTRUCTION  (THE  ONE  AFTER  THE  j 
INSTRUCTION  BEING  EXECUTED  AT  TIME  OF  ! 
INTERRUPTION). 

ZRUPT=GeNADR  OF  LOCATION  AFTER  THE  LOCATION  i 
CONTAINING  THE  INSTRUCTION  IN  BRUPT.  | 

» IF  NEXT  INSTRUCTION  IS  AN  EXTEND  INSTRUC-! 
''  TION,  THE  INTERRUPT  IS  DELAYED  UNTILTHE 

RESUME  EXECUTION  NEXT  INSTRUCTION  IS  NOT  AN  EXTEND 

OF  THE  INTERRUPTED  INSTRUCTION. 

ROUTINE 


MIT  IttSTRUMOfTATION  Ul 
CMHBRIMX.  MASS. 

APOUO  GUIOANCC  AND  NAVIGATION 

DRAKN 

WAITLIST 

LUM INA  RY 
ID 

DOCUMENT  NO. 

FC-3040 

AmtST 

DOCMt 

APPH’D 

REV  ISHECT  i /Of  231 

FROM 

T3RUPT2  ON 
SHEET  18 


ROUTINE  SVCT3  IS  THE  DUMMY  TASK. 
IT  IS  SCHEDULED  IM  T3RUPT 


..^IT  15  OFS 
FLASWRDI 


IS  gyro  compcnsatiom  required? 
(is  driftflg  = 1 ? ) 


'^MUCAOR 

^ + o 


IS  imustalL  in  progress  ? 

•S.  yes  , CHECK  AGAIN  5 SECONDS  FROM  NOW. 


Tno,  IMUCA0R  = +0, 
IMUSTALL  IS 
AVAILABLE 

-OCT  35000| 


PRIORITY  IS  35 
for  job  NBOONLY 


NOVAC  JOB 
PRIORITY 
» 35 
FC-3T30 


schedule  routine  NBOONLY  AS  A JOB 
ROUTINE  NBOONLY  WILL  COMPENSATE 
FOR  NBD  COEFFICIENTS  ONLY 

Routine  nboonly  is  in  program 

SECTION  IMU  COMPENSATION 
PACKAGE 


TASKOVER 


I^SVCT3X  + a ) 


FIXDELAY  IS  AN  ENTRY 
OF  WAITLIST  WHICH  CAUSES 
WAITLIST  TO  SCHEDULE  THE 
LOCATION  SVCT3X-fE  TO  BE 
EXECUTED  AS  A TASK  5.0 
SECONDS  FROM  NOW. 
FIXOELAV  ALSO  CAUSES 
WAITLIST  TO  TERMINATE 
INTERNALLY  AS  A TASK  . 
THE  TASK  THAT  CALLED 
FIXDELAY  THUS  TERMINATES 
AND  THE  INTERRUPTED 
ROUTINE  IS  RESUMED. 


THIS  LOCATION  IS  EXECUTED 
ASA  TASK  6.0  SECONDS. 
AFTER  IT  WAS  SCHEDULED  IN 
PIXDELAY. 


MIT  INSTRUMCNTATION  lAI 
CAMBRIDGE.  MASS. 


ANXIO  GUIDANCE  AND  NAVICAtlCN 


WAITLIST 


LUM INA  RY  tocuHOir  no. 

ID  FC-3040 


tONGCALL  IS  USED  TO  SCHEDULE  TASKS  WHOSE  DELTA 
TIME  IS  IN  DOUBLE  PRECISION  WHICM  CANNOT  BE 
HANDLED  BY  WAITLIST  (SINGLE  PRECISION)  ROUTINE  . 
LONGCALU  WILL  HANDLE  DELTA  TIMES  FROM  OCTOOOOl 
(0.01  second)  to  [ocT  3777T,  OCT  37777]  (Z,G84  , 

354.55  SECONDS  OR  74S  HOURS  39  MINUTES  AND 

14. 55  SECONDS  OR  APPROX  I MATELY  ONE  MONTH}  . 
[^OCT  37777,  OCT  3777?]  = OCT  1,777,777,777  » 

DEC  ZGS, 435 ,4S5 


CALLING  SEQUENCE  ! 
rf-Z  extend 

st  - i DCA  .5r*N 

^ o tc  longcall 


NEXT  SHEET 


MIT  INSmUMCWATIQN  Ut 
CAMMIOCE  MASS. 


MAWN 

RUGMH 

ANALST 

DOCMR  ^ 
APPR'D  g.  VN 


APOUO  GUiDANCC  ANP  NAVIGATION 

WAITLIST 


LUMINARY 

ID 


DOCUMCNT  NO. 

FC-3040 


FROM  PRECEDING  SHEET 


(5 


LONGCYCL 


5 


ENTERED  HERE  FROM  ROUTINE  T3R0PT 
LOMftCYCL  IS  SCHEDULED  AS  A TASK  IN 
ROUTINE  MUCHTIME 


SUBTRACT  ftl  .99 

IClOM^TIME,  longtime  +1]— — [longtime,  longtime +1]  -OCTZOOOo|  SECONDS  FROM  DELTA] 

T IME  COR  NbMAlHING 

DELTA  TIME^ 

THE  number  of  times  CONTROL  WILL  PASS 

THROUGH  HERE  IS  ONE  MORE  THAN  THE  QUOTIENT 

OF  THE  DELTA  TIME  DIVIDED  BY  81. *32  SECONDS 

NEXT  SHEET 


(OCT  ZOOOO) . 


THIS  DOUBLE-PRECISION  SURTRACTION  OPERATION 
PERFORMED  EACH  PASS  RESULTS  IN  THE  HIGH-OROEP 
MAGNITUDE  IN  LONGTIME  BEING  DECREMENTED  BY  ONE 
WHEN  AN  OVERFLOW  OCCURRED  IN  THE  LOW-  ORDER 
MAGHITUDE  SUBTRACTION.  ALSO,  THE  LOW-ORDER 
MAGNITUDE  IS  INCREASED  BY  OCT40000  AT  THE 
SAME  TIME.  THIS  DOES  NOT  OCCUR  WHEN  SUBTRAC- 
TION RESULTS  IN  A NEGATIVE  LOW-ORDER  MAGNI- 
TUDE — ONLY  ON  OVERFLOW.  APPLICATION  OF 
THIS  RULE  WILL  GIVE  CORRECT  RESULTS  IN  THE 
FOLLOWING  TESTS  OF  LONGTIME  AND  LONGTIMETl 
ON  THE  NEXT  SHEET. 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


DRAWN  . 


PRGMR  .C 

ANALST  ^ 


DKMR 


LLLt2i. 


APOLLO  GUIDANCE  AND  NAVIGATION 


WAITLIST 


LUMINARY  ID 


DOCUMENT  NO. 

FC-3040 


|SHEn20  0^ 


FROM 

PRECEOINS  SHEET 


IS  DELTA  TIME  (or  REMAINING  PORTION)  GREATER  THAN  81.92  SECONDS? 
(THIS  IS  DETERMINED  BYTFRTING  LOW-ORDER  MAGNITUDE  OF  UNUSEP| 
,^^,XpaT  first,  AND  THEN  THE  HIGH  IF  NECESSARY) 

.ONGTII«IE+i\  YES  , (AT>  81.92  SECONDS) 


(lONGTIME+I  CONTAINS  LOW-ORDER  MAGMITUO^j 

CHECK  FURTHER 
(LONGTIME+1  g-o) 

(test  high-order  MAGNITUOE-IS  it>+o  ?) 


YES 


ATg  163.84  SECONDS 


NO, 

( LONGTIME  =-  O) 

THE  UNUSED  (REMAINING)  PORTION  OF 
AT  IS  LESS  THAN  81.93  SECONDS 


(5 


TME  NUMBER  (n)  OF 
PASSES  THROUGH  ROU- 
TINE muchtime  is  such 


MUCHTIME 


(LASTTIME) 


-(longtime  +1)  + OCT  20000 


GETCAOR 


WAITLIST  TASK 
AT 

IS  IM  A 
THIS  SHEET 


RESTORE  OCT  20000  WHICH 
WAS  SUBTRACTED  IN 
LONGCYCL  ON  PRECEDING 
SHEET. 

A=:  UNUSED  (REMAINING  OR 

unexpireo^  portion  of 

DELTA  TIME  FOR  THE 


TIME  FOR  THE  LONGCALL 
TASK  where  IS  THE 
UNUSED  PORTION  (con- 
tents OF  A WHEN  TASK 

setcaor  is  scheduled 

at  lower  LEFT)  OF 
THE  delta  TIME  - 
AT^  ^ 81.92 

DELAY  EXECUTION  OF 
LONGCALL  TASK 
81.92  SECONDS 

(or  another 

01 ,92  SECONDS) 

SET  AT=  81.92 
seconds  fop 

TASK  LONGCYCL 


5 


• OCT  20000 


LONGCYCL 


n 


WAITLIST  TASK 
LONGCALL  ) AT  = 

TASK.  / 81.92  SEC. 

PRECEDING  SHTir 


$ 


tONGRTRH 


5 


GCHADR  OF  TAGKOVER 


SET  for  all  exits 

EXCEPT  THE  FIRST 
EXIT 


(3 


GETCAOR 


ILONGEKIT  j 

: (longexit+i)! 


2CDAR  OF  THE  RETURN 
location  rf  + 3 
(WHERE  jC  = TC 
LONGCALL)  FOR  1ST 
EXIT.  TASKOVER  FOR 
succeeding  EXITS. 


5 


GETCAOR  IS  A TASK 
WHICH  WILL  BE  EXE- 
CUTED DELTA  TIME 
CENTISCCONOS  from 
THE  TIME  INSTRUC- 
TION ♦TC  LONGCALL'* 
WAS  executed. 


LONGCADR  I 
: LONGCADR  +1; 


RETURN  VIA 
A AND 


yia/ 

V 


RETURN  ro  (WHERE  af  - TC  LONGCALL) 

IF  THIS  IS  FIRST  EXIT. 

OR 

RETURN  TO  INTERRUPTED  ROUTINE  VIA  ROUTINE 

TASKOVER  IF  THIS  IS  NOT  THE  FIRST  EXIT. 


\ EXIT  VIA  / 

\ A AND  L / 

TO  ROUTINE 
SCHEDULED 
ASA 

LONGCALL  TASK 


gsmadrI 

8BC0H  j 

LONGCALLi 
TASK 


LONGCALL  TASK 
WILL  NOW  BEGIN. 

THE  LONGCALL 
TASK  THUS  ap- 
pears TO  BE  THE 
CONTINUATION 
OF  TASK 
GETCAOR 


MIT  INMRUMCNTATION  lAI 
CAMBRIDGC,  MASS. 

APOLLO  eUlOANCC  AND  NAVIGATION 

W.AITLIST 

iDRAMM  4O 

Iamalst  ^ . 

wm 

REV  ISIlfLT  ZI'' 

ERASABLE  LOCATIONS  USED 


WAITEXIT 

GENA  DR  OF  CALLING  SEQUENCE 

OR  EXIT  ADDRESS 

WAITBANK 

(WAITEXIT+1) 

BBCON  OF  CALLING  SEQUENCE 

WAITADR 

GENADR  OF  TASK 

WAITADR+1 

BBCON  OF  TASK 

WAITTEMP 

TIME  INTERVAL  BETWEEN 

TASKS 

LSTl+O  TO +7 

TIME  INTERVAL  TABLE 

LST2-H)  TO + 170 

2CADR-OF^TASKS  TABLE 

BANKRUPT 

SAVE  BBCON  AND  SUPER  BANK 

OF  ROUTINE  INTERRUPTED 

BY  T3RUPT 

QRUPT 

SA  VE  Q OF  ROUTINE 

INTERRUPTED  BY  T3RUPT 

RUPTAGN 

INDICATES  TO  TASKOVER 

WHETHER  (+1)  THE  NEXT  TASK 

SHOULD  BE  EXECUTED 

IMMEDIATELY  AFTER  THE 

CURRENT  TASK  OR  WHETHER 
(-0)  THE  INTERRUPTED 

ROUTINE  SHOULD  BE 

EXECUTED  IMMEDIATELY 

AFTER  THE  CURRENT  TASK 

ARUPT 

SAVE  A OF  ROUTINE 

INTERRUPTED  BY  T3RUPT 

LRUPT 

SAVE  L OF  ROUTINE 

INTERRUPTED  BY  T3RUPT 

LONGCADR+0,+1 

2CADR  OF  LONGCALL  TASK 

LONGTIME +0.+1 

DP  DELTA  TIME  FOR  LONGCALL 

TASK 

LONGEXIT+0,  +1 

2CADR  OF  RETURN  ADDRESS 

TO  CALLING  SEQUENCE 

KLAGS 


SERVICE  ROUTINES 


TABLE  OF  CONTENTS 


ENTRY  BRIEF  DESCRIPTION  SHEET 

SUBROUTINE  UPENT2  SETS  SEi-ECTED  BIT  POSITIONS  OF  A 2 

SELECTED  FLAG  WORD  (LIMITED 
SELECTION  BY  CODE) 

SUBROUTINE  DOWNENT2  CLEARS  SELECTED  BIT  POSITIONS  OF  2 

A SELECTED  FLAG  WORD  (LIMITED 
SELECTION  BY  CODE) 

SUBROUTINE  UPFLAG  SETS  A BIT  POSITION  OF  A FLAG  WORD  3 

(BOTH  DETERMINED  BY  THE  FLAG  NAME) 

SUBROUTINE  DOWNFLAG  CLEARS  A BIT  POSITION  OF  A FLAG  WORD  3 

(BOTH  DETERMINED  BY  THE  FLAG  NAME) 

SUBROUTINE  DELAYJOB  PLACES  CURRENT  JOB  TO  SLEEP  FOR  6 

AT  CENTISECONDS,  AND  IS  AWAKENED 
AT  LOCATION  X +2  (Jf CONTAINS  TC 
DELAY  JOB) 

SUBROUTINE  GENTRAN  COPIES  CONTENTS  OF  N CONSECUTIVE  9 

LOCATIONS  INTO  ANY  N CONSECUTIVE 
LOCATIONS 

ROUTINE  B50FF  CLEARS  BIT -POSITION  5 OF  REGISTER  10 

EXTVBACT  AND  TERMINATES  AS  A JOB. 
INDICATES  THAT  THE  DISPLAY  HAS 
BEEN  ANSWERED 

SUBROUTINE  TRFAILON  TURNS  TRACKER  FAIL  LIGHT  (OPTICS  11 

CDU  FAIL)  ON 

SUBROUTINE  TRFAILOF  TURNS  TRACKER  FAIL  LIGHT  (OPTICS  11 

CDU  FAIL)  OFF 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

SERVICE  ROUTINES 

DRAWN  f AV/rtt, 

PRGMR 

C /'>-/ 70 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3050 

ANALST  ^ 

REV  ISHEH  1 OF  121 

SERVICE  ROUTINES  (uPFLAG  AND  DOWNFLA&J 

THESE  SUBROUTINES,  UPFLAG  AND  DOWNFLAG,  ARE  USED  FOR  SETTING  AND 
CLEAR  IN  Gj  RESPECTIVELY,  ANY  FLAG.  A FLAG  IS  ANY  BIT  POSITION  THAT  HAS  A NAME 
SUCH  AS  "MIDAVFLO''  FOR  EXAMPLE.  THESE  BIT  POSITIONS  ARE  B I T-  Po  S ITI O N S 15-1 
OF  CONSECUTIVE  FLAG  WORDS  FLAGWROO,  FLAGWRDl,  FLAGWRD2,  • . • , FLGWRDIO 
AND  FLGWRDll,  A FEW  OF  THE  LATTER  DONOT  YET  HAVE  NAMES.  EACH  FLAG  HAS  A 
CODE  NUMBER  WHICH  DETERMINES  THE  FLAG  WORD  AND  THE  BIT  POSITION  IN  THAT 
FLAG  WORD  TO  BE  SET  OR  CLEARED.  THE  FLAG  WORD  (FLAGWRDX  WHERE  IS  O, 
1,2,...,  10  ORll)  AND  THE  BIT  POSITION^  (WHERE  /9  IS  15,  14,  13,  ...,2  ORl) 
ARE  OBTAINED  BY  DIVIDING  THE  CODE  BY  IS  SO  THAT  THE  FLAG  WORD  WILL  BE 
FLAGWRDO  + THE  OUOTIENT(THEQUOTIENT1SkJ  ANDTHEBITPOSITIONOF  THAT 
FLAG  WORD  WILL  B E ^ ( /9  I S 1 5 MINUS  JS^  ^ THE  REMAINDER).  THUS,  THE  CODE 
NUMBER  IS  iS*Kr+i?  OR  1S‘<+15-^.  AS  AN  EXAMPLE,  THE  CODE  NUMBER  FOR 
MIDAVFLG  IS  DEC  148  . THE  QUOTIENT  OF  148-r-  15  IS  9 AND  THE  REMAINDER 
IS  13  («C=9,  i;?=13,  >e=15--£^'  = 2).  THUS,  THE  FLAG  MIDAVFLG  IS  IN  FLAG  WORD 
FLAGWRDO-f9  WHICH  IS  FLAGWRD9.  FLAG  MIDAVFLG  IS  8 IT-  POS 1T10M2  OF  FLAGWRD9 

THESE  SUBROUTINES  WILL  BE  SHOWN  AS  FOLLOWS  IN  PROGRAMS  USING  IT. 


! Via  UPFLAG 
I (FC-2070) 


VialXDWNFLAG 

(FC-2070) 


SET^" 

BIT  3 OF 

FlAGWRDoC 


CLEAIT' 

BIT  ^ OF 
FLAGWRD«< 


CA  LLING  SEQUENCE  I ' 


ae  + 0 TC  UPFLAG 
ae  + 1 ADRES  Fi-AGNAME 

+ Z RETURN  HERE  UNCONDITIONALLY 


TC  DOWNFLA& 

ADRES  FLAG  NAME 

RETURN  HERE  UNCONDiTIONALL't 


ENTERED  HERE  FROM 
5S  LOCATIONS 


ENTERED  HERE  FROM 
G 0 LO  CAT  ION  S 


‘'TC  UPFLAG+Z" 


A = a?+  1 OF 

GALLING 

SEQUENCE 


A- Q 

-"TC  DOWNFLAG+2'' 


A = oe+  1 OF 

CALLING 

SEQUENCE 


I N CRE- 
MENT  A 
BY  i 


A = se  + 2 OF 
CALLING  SEQUENCE 


I N HIBIT 
INTER- 
RUPTS 


NEXT  SHEET 


MIT  INSTRUMENTATION  lAB 
CAMBRIDGE.  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


SERVICE  ROUTINES 


DOCUMENT  NO. 

FC-3050 


FROM 

PRECEDING  SHEET 


ITEMP3 

^ ITEMP3 

ITEMPl-— QUOTIENT 

OF(ie+lJ-^  DEC  15 

ITEMPZ-^  REMAINDER  OF  (sf+lj  -i-  DEC  15 

(FLAG  WRDO 


SERVICE  ROUTINES 
(UPFLAG  AND  OOWNFLAG) 


THE  CALLING  SEQUENCE. 


1 !TEMP1  = *<  (THE  QUOTIENT) 

J THE  QUOTIENT  WILL  BE  USED  AS 

AN  INDEX  FOR  SELECTING  THE 
FLAG  WORD  AND  WILL  BE 
REFER  RED  TO  AS  " X 1 '' 

1 ITEMP2=  ^ (THE  REMAINDER) 

J THEREMAINDER  WILL  BE  USED 

ASAN  index  FOR  SELECTING 
THE  BIT  POSITION  IN  THE 
SELECTED  FLAG  WORD  AND 
WILL  BE  REFERRED  TOAS  "X2 

L=  CONTENTS  OF  FLAG  WORD  ASSOCIATED 
WITH  THE  FLAG  NAME  IN  LOCATION 
OFTHE  CALLING  SEQUENCE. 


FLAGWRD  0 ' 


FLAG WRDO 
FLAGWRDl 
FLAG  WRD 1 
FLAG  WRD3 
“LA  GW  R 04 
Flag  WRDS 
FL AGWRDG 
FLAGWRO? 
FLAGWRD8 
FLA  G WR09 
FLGiWRDIO 
FLGW  R Di  / 


- ( BIT15  + X2) 


A=  ONES  IN  ALL  BIT  POSITIONS  EXCEPT 
THE  BIT  POSITION  ASSOCIATED  WITH 
THE  FLAG  NAME  IN  LOCATION  df  + 1 OF 
THE  CALLING  SEQUENCE, 


SIT 

PO  S I T I 0 N 
SET  OR 


X2 

R EGI STER 

CONTENTS 

8IT15 

+ C 

BIT15 

OCT  40000 

II 

+ 1 

8 lTi4 

OCT  20000 

II 

+ 2 

8 IT13 

OCT  10000 

II 

+ 3 

81  T12 

OCT  04000 

II 

+ 4 

8 1 Til 

OCT  0 2000 

II 

+ S 

8 ITIO 

OCT  0 1000 

n 

+ 6 

B 1 T 9 

OCT  0 0400 

II 

+ 7 

BITS 

OCT  00  200 

It 

+ 8 

S 1 T 7 

OCT  00  100 

II 

+ 9 

BITS 

OCT  0 0 C40 

II 

+ 10 

8 ITS 

OCT  00020 

It 

+ 11 

B 1 T4 

OCT  00  0 1 0 

II 

+ 12 

B IT3 

OCT  00  0 04 

>1 

+ 13 

0 ITl 

OCT  00002 

+ 14 

8 1 T 1 

O C.T  O O O O 1 

NEXT  SHEET 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


APOUO  GUIDANCE  AND  NAVIGATION 


SERVICE  ROUTINES 


LUMINARY  DOCUMENT  no. 
ID  FC-3050 


|QSIK£l£ll 


SERVJCE  ROUTJNES 

(upflag  and  oownflagJ 


FROM 

PRECEDING  SHEET 


Q sr  upflag  + 2 


x 


L=  COMPLETE  ORIGINAL  FLAG  WORD  (CONTENTS  OF  FLAG 
WORD  ASSOCIATED  WITH  THE  FLAG  NAME  IN  LOCA- 
TION ^e+1  OF  THE  CALLING  SEQUENCE). 

Q = D O WNFLAG  + 2 


(^pflag+^ 


^ — ^ 

(OOWNFLAG+^ 


ALL  ZEROES  EXCEPT  A ONE 
IN  THE  BIT  POSITION  ASSOCI- 
ATED WITH  THE  FLAG  NAME 
IN  LOCATfOKJ  Jfi  + l OF  THE 
CALLING  SEQUENCE 


A»ALL  ones  EXCEPT  A ZERO 
IN  THE  SIT  POSITION 
ASSOCIATED  WITH  THE 
FLAG  NAME  IN  LOCATION 
3e+  1 0 F the  CALLING 
SEQUENCE  . 


• A A L 


' A V u 


NOTE  ; ISA  SYMBOL  FOR  THE 

''OP"  OPERATION  WHICH 
CAUSES  A ONE  TO  BE 
PLACED  NTO  EACH  BIT 
PC  SITION  OF  A -F  THE 
FORMER  content  WERE 
CnE  or  if  the  SAME  BIT 
POSITION  OF  L CONTAINED 
A ONE.  A ZERO  iN  BOTH 
WILL  CAUSE  AZEROTO  BE 
PLACED  INTO  ""hE  SAME 
BIT  POSITION  OF  A. 

L CONTAINS  COMPLETE  0 R i Gl  N A L FLAG  WORD. 

A=  SAME  AS  CONSENTS  OF  FLAG  WORD 

ASSOCIATED  WiTH  THE  FLAG  NAME  IN  tf-rl 
EXCEPT  THAT  A ONE  iS  IN  THE  BIT  POSITION 
WHOSE  Flag  NAME  IS  ,N  ae*i. 


NOTE  : ' A'  IS  A symbol  FOR 
THE  "AND"OPERATION 
WHICH  CAUSES  A ONE 
TO  REMAIN  IN  EACH  BIT 
POSITION  OF  A IF  THE 
SAME  bit  POSITION 
FORMERLY  CONTAINED 
A ONE  AND  IF  THE  SAME 
BIT  POSITION  OF  L 
CO  NTA I N 5 A ONE . A 
ZERO  IN  EITHER  WILL 

result  in  a zero  in 
A . 

SAME  AS  CONTENTS  OFFLAG 
WORD  ASSOCIATED  WITH  THE 
FLAG  NAME  IN  ^+1  EXCEPT 
A ZERO  :N  THAT  BiT  POSITION 
HAVING  ITS  flag  NAME  IN 
+ 1 . 


(COMFLAG  ) 


1 

(FLAGWRDO  + Xi)  A 

RELEASE 

1 NTER- 
RU  PT 

IN  HIBIT 

RESTORE  THE  ORIGINAL  CONTENTS  OF 
■^HE  FLAG  WORD  CONTAINING  THE  BIT 
POSITION  WHOSE  FLAG  NAME  IS  IN 
5£-Hi  EXCEPT  FOR  THAT  SAME  SIT 
POSITION  WHICH  IS  NOW  SET  IF 
ENTRY  WAS  VIA  UPFUAG  AND  CLEARED 
IF  ENTRY  WAS  VIA  DOWNFLAG. 


.RETURN  VIA/ 
\ ITEMP3  / 


RETURN  TO  CALLER 
AT  + 1 


APOLLO  GUIDANCE  ANO  NAVIGATION 

ifimanmiH 

WBR. 

SERVICE  ROUTINES 

PRGMR  r 

miL 

mBH 

DOCUMENT  NO. 

FC-3050 

ANALST  ' f . 

SERVICE  ROUTINES  (DELAVJOB) 

SUBROUTINE  DELAYJOB  IS  USED  TO  PUT  THE  CURRENT  JOB  TO  SLEEP 
FOR  AT  CENTISECONDS  . AT  THE  END  OF  THIS  TIME  PERIOD  THIS  JOB  IS  AWAKEN- 
ED AT  THE  NEXT  LOCATION  OF  THE  CALLING  SEQUENCE). 

THIS  IS  ACCOMPLISHED  BY  FIRST  SEARCHING  THE  TABLE  OF  DELAYLOC 
REGISTERS  WHICH  CONTAIN  THE  CADR  OF  THOSE  JOBS  NOW  BEING  DELAYED. 

IF  NO  REGISTER  IS  AVAILABLE  , AN  ABORT  IS  EXECUTED.  IF  ONE  IS  AVAIL- 
ABLE FOR  THE  CURRENT  JOB,  ROUTINE  WAKER  IS  SCHEDULED  TO  BE  EXECUTED 
ASATASK  AT  CENTISECONDS  FROM  NOW.  THECADR  OFif+l  IS  FORMED 
AND  STORED  INTO  THE  AVAILABLE  DELAYLOC  REGISTER.  THEN  THIS  CURRENT 
JOB  IS  PUT  TO  SLEEP.  AFTER  AT  CENTISECONDS  HAVE  ELAPSED,  TASK  WAKER 
IS  EXECUTED  AND  CAUSES  THE  LOCATION  Si  + Z OF  THE  CALLING  SEQUENCE 
TO  BE  AWAKENED.  TASK  WAKER  IS  THEN  TERMINATED. 

CALLING  sequence: 

ofi-l  CAF  oCiN 

se+O  TC  BANKCALL 

iC  + 1 CADR  DfeLAYJOB 

o£  + 2 return  here  AFTER  A DELAY  OF  AT  CENTISECONDS 


rf  ± N DEC  at  CENTISECONDS 

THIS  SUBROUTINE  WILL  BE  SHOWN  AS  FOLLOWS  IN  PROGRAMS  USING  IT  ; 


DELAYJOB 


PUT  CURRENT  JOB 
TO  SLEEP  FOR  AT  CENTI- 
SECONDS. IT  IS  AWAKENED 
AT  THE  N EXT  LOCA 
TION 


NO  DELAYLOC  REGISTER  AVAILABLE  FOR 

STORING  se  + Z ( DELAY  ROUTINE  BUSY) 

VIA  BAILOUT  (code  OCT  1104) 


PC -3050 


NORMAL 

EXIT 


TASKOVER 


entered  FROM  13  LOCATIONS  V,A  BANKCALL  WITH  A=  AT  AND  2CADR  OF 
LOCATION  THE  RETURN  TO  THE  CALLING  SEQUENCE,  IN  8UF2  AND 

BUF2-I-1.  BUF2  AND  BUF2-H  WERE  SET  BY  BANKCALL. 


Q = AT  CENTISECONO  (TIME  CURRENT 
JOB  WILL  BE  delayed) 


set  for  loop  WHICH  SEARCHES  TABLE 
OF  4 DELAYLOC  REGISTERS 


NEXT  SHEET 


SERVICE  routines  (DELAYJ08) 


DECREMENT 
A BY  1 


SET  INDEX  FOR 
NEXT  PASS 


FROM 

PRECEDING  SHEET 


(DELLOOP 


R UPTREI 

51— A 

L 

RUPTREGl  IS  USED  AS  AN 
INDEX  AND  IS  HEREAFTER 
REFERRED  TO  AS  XI 


IS  X^URRENT  JOB  "? 
C/D£LAYL0C+X1^ 

\=  ± 0 ?/ 


/ IS  X 

R U PTRE51 

'\=  O ?x 


HAVE  ALL  DELAYLOC 
RE&ISTERS  BEEN 
XSEARCHED  ? 


YES,  (none  available) 


A.L-*-BUF2^ 


BAILiOUTl  ALARM  CODE 
FC-3140  31104g 

DELAY  , 

ROUTINE  ' 

BUSY 


SET  TO  CAUSE  CONTROL  TO 

, RETURN  FROM  WAITLIST  TO 

■ GENA09(TCGETCAO-1)  TCGETCAD  . 

IWAITEXITIS  incremented 

3Y  2 IN  ROUTINE  LVWTLI5T 
, OR  waitlist. 


— RVPTRESl^,^ 


ENTRY  SUBROUTINE 
waitlist  at  DLY2-1  Y" 

ENTRY  TO  SCHEDULE  TASK\ 

wakerto  be  executed 

AT  CENTI  SECONDS  FROM  NOW 

AT  WAS  STORED  IN  Q AT  / 
beginning  of  DELAYk.OB 


A— GENADR  WAKER  1 

VIA  DLV2 • 

WAKER / 

WA  ITLIST  TA  5K  / 

' at  = CONTENTS  ( 

0 F Q \ 

SH  8 \ 

{exit  via  WA  I TEX  it 


u = FBANK  OF  TASK  WAKER  IN 

BIT-  POSITIONS  15-H  ANDTHE 
INDEX  FOR  DELAYLOC  IN 
BIT-  POSITIONS  3-1  . 

^ ~ B 2CADR  OF  TASK 

L=  BBCON  / 

NOTe:  BiTposmoNS  2-i  of  LCoirAtNo 

THE  INDEX  FOR  OELAYLOC(FOR 
finding  the  cadr  of  location 
TO  BE  awakened)  RATHER 
THAN  THE  E BANK. 


CONTENTS  OF  L IS  STORED  INTO 
THE  LSTg,  LIST  OY  WAITLIST 
AND  THEN  PLACED  INTO  BBANK 
OY  T3RUPT. 


TO  TO  G ETC A D ON 
N EXT  SHEET 
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SERVICE  ROUTINES  (OELAYJOBJ 


FROM 

PRECEDING  SHEET 


( tcgetcad) 


/ MAKECADR  \ 

/construct  the  cadr\ 

/of  ;e  + 2 FROM  GENADr' 
\IN  8UF  AND  F BANK  IN 
\bUF+  1 AND  LEAVE  IT  IN  A/ 
\Fc-  3060  / 


A = CAOR  OF  if+Z  OF  CALUING  SEQUENCE 


[(DELAYLOCTXl)- 


ADDRESS  OFof  + Z^THE  LOCATIONTOBE 
AWAKENED  A T C ENT  I S E CO  M D S AFTER 
CURRENT  JOB  IS  PUT  TO  SLEEP 


JCBSUEEP 

\FC'303^ 


PUT  CURRENT  JOB  (NOW  BEING  EXECUTED^  SLEEP. 
IT  WILL  BE  asleep  until  IT  IS  AWAKENED  AT 
LOCATION  ofTZ  BY  TASK  WAKER  BELOW 


DURING  THIS  PERIOD  CF  AT  C E N Tl  S E C 0 N D S , OTHER  JOBS  ARE 
EXECUTED  AS  THEIR  PRIORITIES  BECOME  HIGHEST  INTERRUPTED 
BY  TASKS  AS  THEIR  DELTA  TIMES  EXPIRE 


WAKER  ISATASK,  ITWAS  SCHEDULEDTOBE 
EXECUTED  IN  AT  C E N Tl  S ECO  N D S . T H E S C H E D U L I N G 
BY  WAITLIST  WAS  INITIATED  IN  ROUTINE  OKZDELAY 
ON  PRECEDING  S H E E T.  T3RUFT  PLACES  CONTENTS  OF  L INTO  BBaNK 


(OELAYi-OC  + Xi; 


XI  IS  AN  INDEX  AND  IS  EQUAL  TO  THE 
CONTENTS  OF  RUPTREGl  AND  OF  BIT- 
POSITIONS  3-1  OF  BBAN  K (FBANK  MUST  REMAIN  00} 

OBTAIN  CADR  OFLOCATION  df  + 2 
WHICH  IS  TO  BE  AWAKENED 


I (D  E L A Y L 0 C + X l)  ' 


MAKE  THIS  OELAYLOC 
REGISTER  AVAILABLE 


/ JOBWAKE  \ 

'wake  up  jo  B ^+2}\ 

WHOSE  CADR 
IS  IN 

\ PC-  3030  / 


LOCATlONof+2  OF  THE  CALLING 
SEQUENCE  IS  AWAKENED.  IT  WILL 
BE  EXECUTED  WHEN  ITS  PRIORITY 
IS  HIGHER  THAN  THE  PRIORITIES 
OF  OTHER  SCHEDULED  JOBS 


TASKOVER 

^fC-3040 


•terminate  task  WAKER 
AND  RESUME  EXECUTION 
OF  INTERRUPTED  ROUTINE 


END  OF  OELAYUOB 
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SERVICE  ROUTIMES  (&ENTRAN) 


THIS  SUBROUTINE  IS  USED  FOR  COPYING  CONTENTS  OFN 
CONSECUTIVE  LOCATIONS  WHOSE  INITIAL  ADDRESS  |S»»J|MT0n  CONSECUTIVE 
LOCATIONS  WHOSE  INITIAL  ADDRESS  I S 


THE  CALLING  SEQUENCE  ISC 

ae-1  CAP 

Se+0  TC  SENTRAM 

oC  + l ADRES  'ffl 

jC+Z  ADRES 

SC  +3  RETURN  HERE  UNCONDITIONALLY 


EXAMPLE  OF  CALLING 
SEQUENCE 

MARKITl  CAF  SIX 

TC  6ENTRAN 
ADRES  MRKBUFl 
ADRES  MRKBUFZ 


SETFOR  NEXT 
PASS 


ENTERED  FROM  13  LOCATIONS 
WITH  A = OCT  N-  1 


1 1 

A— 

[TEMPI 

DEC  REMENT 
A BY  1 


I NH  I BIT 

inter- 

rupts 


THIS  SUBROUTINE  WILL  BE 
SHOWN  AS  FOLLOWS  IN 
PROGRAMS  USING  IT  : 


/V+N-1 
■y+N-L 
y+N  -3 


GENTRAN 

fW+N-l) 

■■ (-w^+N-z; 

•> (9;?+n-35 


t GENTRAN  + I) 


ITEMP1=(n-1)  for  1ST  pass, for 
ZND  pass,  (N-3)  for  3R0,..., 
AND  O FOR  last  PASS 


A— {£^ 

l)  + ITEMPl 

L CONTENTS  OF 

LOCATION  WHOSE 
GENADR  IS  IN  A 

A -■ (rf  + Z)  + ITEM  PI 

(location 

GENADR  IS  IN 

WHOSE 

A)-i U 

rf+1  = ADRES  “X? 

A=  ADRES  (5W  + N-0  POR  1ST  PASS, 
ADRES  («^  + N-Z)  FOR  ZNOPASS, 
ADRES  ^/Y+N-S)  FOR  3RD  PASS,  ... 

ADRES'5^^  FOR  LAST  PASS 

L=  CONTENTS  OF  LOCATION  (5!^+N-l)F0R 
THE  1ST  PASS,  (^+N-ZJ  FOR  ZND, 
(W+N-3)  FOR  3RD  , . . . , A N 0 7??  FOR 
THE  LAST  PASS 

je  + Z=  ADRES  TV' 

A = ADRES  (;y+  N-  1)  FOR  1ST  PASS, 
ADRES  (>F+N-Z)  for  ZND  PASS, 
ADRES  (y+N-iJ  FOR  3RD  PASS,.. 


ADRES  TF'FOR  LAST  PASS 


y+  N - 1 • 
T)'’+  N - Z - 
y+N-3  ■ 


* HAS  ALL  DATA  ^ 
^/\^BEEN  COPIED?^ 

IS  (ALL  PASSES 

ITEMPl  > COMPLETED) 
\=  0 


-T!?+N-l  FOR  1ST  PASS, 
-W+N-Z  FOR  ZND  PASS, 
+N-3  FOR  3RD  PASS,. 

— W for  last  pass 


\RETURN  VIA/ 
\ROUTINEg+y 

RETURNS  TO  £+3  OF  CALLER 


RETURN  TO  CALLER  AT  rf+3 
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SERVICE  ROUTINES 

(trfailon  and  trfailof) 

SUBROUTINES  TRFAILON  AND  TRFAILOF  ARE  USED  TO  TURN  THE 
tracker  fail  light  (optics  CDU  fail)  ON  AND  OFF,  RESPECTIVELY 

THE  CALLING  SEQUENCES  ARE  : 


ae  + 0 Tc  trfailon  -ror-Ai.^^ 

UNCONDITIONALLY  UNCONDITIONALLY 

THESE  SUBROUTINES  WILL  BE  SHOWN  AS  FOLLOWS  IN 
PROGRAMS  USING  THEM: 


TRFAILON  ^ 
TURN  TRACKER 
FAIL  LIGHT 
ON 

. Fc-^ot>o  ; 


TRFAILOF  \ 
TURN  TRACKER 
FAIL  LIGHT 
OFF 

FC-  3050 ; 


ENTERED  FROM 
ROUTINE  LIGHTON  OF 
PROGRAM  P20-PZS 


ENTERED  FROM  ROUTINE  RANGERD  OF 
PROGRAM  P20-PZ5  AND  FROM  ROUTINE 
RESETVHF  OF  EXTENDED  VERBS  (VERB  8 8) 


INHIBIT 

INTER- 

RUPTS 


INHIBIT 

inter- 

rupts 


(DSPTAB+iiO)* 


(DSPTAB+llD)- 


OPTICS  CDU 
MALFUNCTION 


SEE 

REMARK 
AT  right 


(dsptab  + 

■no)^o 

(DSTAB+llD)— ! 

(OPTMODES;^— 1 

ALLOW 

INTER- 

RUPTS 


TURN  tracker  fail  LIGHT  OFF.! 
N O O PT I C S C DU  I 

MALFUNCTION  j 

i 

INDICATES  TO  PROGRAM  | 

T4RUPT  THAT  A CHAN&E  HAS  | 
OCCURRED  IN  BIT-  POSlTlONsj 

ii-i  SINCE  the  last  time  i 
DSPTA8+11D  WAS  PROCESSED  i 
BY  T4  RUPT  1 


TRACKER  FAIL  LIGHT  STATUS 
INDICATOR  (INVERTED  LOGIC). 

IT  IS  USED  FOR  MONITORING 

-ll  THE  OPTICS  IN  ROUTINE  OPTMON 
- j OF  PROGRAM  T4RUPT.  NOR  Ml  AL- 
LY IT  IS  THE  LAST  SAMPLED 
CONTENT  0F8IT-  POSITION  7 
OF  CHANNEL  30.  THiS^l'" 
MEANS  THAT  NO  OPTICS  CDU 
FAIL  INDICATION  HAS  BEEN 
GENERATED  BY  THE  OPTICS 
CDU  FAILURE 

MOTE:  TVIEGE  ROUTINES  ARE  ENTERED  DUE  TO 
THE  USE  OF  THE  TRACKER  LIGHT  FDR  VHP 
range  data  STATUS. 


RETURN  VIA/ 

\ Q / 


RETURN  TO  CALLER  AT  4 1 
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INTER-BANK  COMMUNICATION 


BANKCALL 

Sh. 

2 

SWCALL 

Sh. 

2 

SWRETURN 

Sh. 

3 

POSTJUMP 

Sh. 

3 

BANKJUMP 

Sh. 

3 

MAKECADR 

Sh. 

4 

SUPDACAL 

Sh. 

4 

IBNKCALL 

Sh. 

5 

I3WCALL 

Sh. 

6 

ISWRETRN 

Sh. 

6 

USPRCADR 

Sh. 

7 

SUPERSW 

Sh. 

7 
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Restore  caller  FRANK 


Return  to  caller 


Used  as  a unilateral 
bank  jump 

L = TC  POSTJUMP 

L + 1 = CADR  of  BANK- 
JUMP 


Save  incoming  A 


Load  CADR  address 


Switch  FRANK 

Load  sub-address  of  CADR 


Restore  input  A 


Go  to  new  bank 
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Load  return  CADR  saved 


By  BANKCALL  or 
SWCALL 


(i 


SUPDACAL 


MPTEMI 

^A 

3 

E . 

Input  : A = FCADR, 

L = SUPERBITS 


Temporary  storage  for 
FCADR 


Set  new  FBANK 
Save  old  FBANK 


MPTEMP4-FBANK  + SBANK 


Save  old  FBANK  and 
SBANK 


Next  Sheet 
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I DOCUMENT  NO. 


ANALST . 
IDOCMR 
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taJiM 


LUMINARY  ID 
OVl 


FC-3060 

ISHEn  4 


Of  7 


From  Preceding  Sheet 


c 


IBNKCALL 


3, 


Used  to  call  a subroutine  in 
another  bank  in  intertupt  mode 

L = TC  IBNKCALL 
L+  1 = CADR  (subroutine  call) 

L + 2 = return 


RUPTREGSj^  <r- 


A,L 


A <- 


-c(L  + 1) 


Save  incoming  A,  L 


Load  CADR  address 


Q-«— 

Q + 1 

Next  ^heet 


Increment  Q 
for  return 
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From  Precedmg  Sheet 


^SWCALL^ 


Store  CADR 


Switch  F bank 

load  sub -address  of  CADR 


Save  DP  return  to 
calling  program 


Save  return  and 
restore  inputs 


Call  subroutine 


Restore  caller  FBANK 


Return  to  caller 
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EXTENDED  VERBS 


alm/eJnd 

Sh. 

CHKPOOH 

Sh. 

TESTXACT 

Sh. 

GOLOADLV 

Sh. 
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Subroutines  Called  on  Other  Flowcharts 


Subroutine 

Flowchart 

Description 

Where 

Called 

FALTON 

FC-3090 

Turn  on  operator  error  light 

Sh.  2 

NVSUB 

FC-  3090 

Blank  DSKY  except  for  MM  and  verb 

Sh.  3 

FLASHOFF 

FC  3090 

Turn  off  V/N  flash  on  DSKY 

Sh.  4 

CHANGl 

FC- 3030 

Suspend  a basic  job 

Sh.  3 

FLAGS 


Name 

— 

Meaning  When  Set 

Meaning  When  Cleared 

Where 

Set 

Where 

Cleetred 

Where 

Tested 

PRIODFLG 
Flag  4 Bit  14 

Priority  display  in 
ENDIDLE 

No  priority  display  in 
ENDIDLE 

Sh.  3 

PDSPFLAG 
Flag  4 Bit  12 

P20  sets  a normal 
display  into  a 
priority  display 
in  R60 

Leave  as  normal 
display 

Sh.  3 

i 

PRONVFLG 
Flag  4 Bit  7 

Astronaut  using 
keyboard  when 
priority  display 
initiated 

Astronaut  not  using 
keyboard  when 
priority  display 
initiated 

Sh.  3 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

^ Extended  Verbs 

DRAWN  /e  . 

8113^ 

PRGMR  > 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3100 

ANALST 

DOCMR 

KEYRUPT  and  UPRUPT 


KEYRUPTl  Sh.  4 
UPRUPT  Sh.  6 
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KEYRUPT  AND  UPRUPT 


When  the  operator  or  the  ground  communicates  with  the  computer,  the  in‘'or- 
mation  being  transmitted  is  first  received  by  this  program  KEYRUPT  and  UPRUPT. 

Several  ways  are  available  to  communicate  with  the  computer.  A command 
may  be  keyed  in  (Verb-Noun  combination)  by  depressing  keys  VERB,  VI,  V2, 

NOUN,  Nl,  N2,  and  ENTER,  where  VI,  V2,  Nl,  and  N2  represent  numerical  keys 
(0,  1,  2,  . . . , 8 or  9).  Data  may  be  entered  on  request  from  the  computer  by  de- 
pressing several  numerical  keys  (and  a sign  key)  and  key  ENTER.  Keys  CLEAR, 
ERROR  RESET,  KEY’  RLSE  may  also  be  depressed.  Each  time  a key  is  depressed, 
routine  KEY'RUPT  which  requests  the  execution  of  job  CHARIN  (in  Pinball  program, 
FC-3090  is  executed.  Each  time  job  CHARIN  is  executed,  it  performs  an  operation 
determined  by  the  key  that  was  depressed.  When  key  ENTER  is  depressed,  the  com- 
mand (which  has  been  keyed  in  as  a Verb-Noun  combination)  is  executed  or  the  data 
(which  has  been  keyed  in)  is  accepted.  Routine  UPRUPT  is  executed  each  time  an 
uplink  word  has  been  received  from  the  ground;  it  also  requests  the  execution  of 
job  CHARIN.  Each  uplink  word  contains  information  similar  to  that  generated  by 
depressing  a key  on  a DSKY. 

Routine  KEYRUPT  processes  the  key  code  of  each  character  transmitted 
from  the  keyboard  of  the  DSKY  via  Channel  15  (Bit  positions  5-1).  Routine  UPRUPT 
processes  the  key  code  of  each  character  transmitted  from  the  ground  via  uplink 
counter  INLINK. 

When  a key  on  the  keyboard  is  depressed,  the  routine  being  executed  is  inter- 
rupted by  interrupt  program  No.  5.  A key  code  (5-bit  configuration)  representing 
the  character  selected  will  be  placed  into  bit  positons  5-1  of  channel  15  by  hardware 
action.  Control  will  arrive  at  routine  KEYRUPT  via  its  lead-in  interrupt  routine. 

When  uplink  counter  INLINK  overflows,  the  routine  being  executed  is  inter- 
rupted by  interrupt  program  No.  7.  A key  code  word  (uplink  word)  representing 
the  character  transmitted  from  the  ground  is  serially  loaded  from  the  uplink  receiver 
into  INLINK.  The  key  code  word  ia  a 16-bit  word  consisting  of  a one  in  bit-position 
16  and  the  key  code  (5-bit  configuration)  ia  in  bit  position  15-11  and  5-1  and  its 
complement  in  10-6.  When  the  one  in  bit-position  16  of  the  16-hit  w'ord  reaches 


MIT  INSTRUMTUTATICN  lAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDMXE  AND  NAVIGATION 

KEYRUPT  and  UPRUPT 

DRAWN 

PRGMR 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3110 

ANALST  ^ 

DOCMR 

APPR'D  (?cSWLrw.r..t-.i 

REV  2 [SHEET  LI  OfH  | 

bit-position  16  of  INLINK  during  tlie  serial  loading  (shifting  left  in  INLINK  one  bit- 
position  at  a time),  overtlovv  occurs  causing  interrupt  No.  I.  control  win  ari-ive 
at  routine  UPRUPT  via  its  lead-in  interrupt  routine. 


The  characters  are  represented  by  the  following  key  codes; 


Character 
(or  action) 

Key  Code 
(binary) 

Character 
(or  action) 

Key  Code 
(binary) 

0 

10  000 

VERB 

10  001 

1 

00  001 

ERROR  RESET 

10  010 

2 

00  010 

KEY  RELEASE 

11  001 

3 

00  011 

+ 

11  010 

4 

00  100 

- 

11  on 

5 

00  101 

ENTER 

11  100 

6 

00  no 

CLEAR 

11  no 

7 

00  111 

NOUN 

11  111 

8 

01  000 

9 

01  001 

Both  routines  preserve  the  banks,  Q register  and  the  current  time  (double 
precision)  and  make  the  key  code  available  for  routine  CHARIN  of  program  Pinball. 

KEYRUPT  also  sets  DSKYFLAG  (indicates  that  displays  are  to  be  sent  to  the 
Dsky)  and  schedules  routine  CHARIN  of  program  Pinball  as  a job  at  priority  30. 

UPRUPT  also  clears  INLINK  for  the  next  key  code,  turns  on  uplink  activity 
light  and  tests  the  key  code  for  triple  character  redundancy.  The  key  code  is  satis- 
factory if  the  original  contents  of  bit -positions  15-11  of  INLINK  are  the  same  as  the 
original  contents  of  bit- positions  5-1  and  the  complement  of  the  original  contents  of 
bit-positions  10-6.  If  the  key  code  is  not  satisfactory,  UPLOCKFL  flag  is  set  and 
the  interrupted  routine  is  resumed.  If  the  key  code  is  satisfactory,  and  it  is  the  error 
reset  code,  then  the  UPLOCKFL  flag  is  cleared  and  routine  CHARIN  of  program 
Pinball  is  scheduled  as  a job  at  priority  30  and  the  interrupted  routine  is  resumed. 

If  the  key  code  is  not  the  error  reset  code  and  the  UPLOCKFL  flag  is  cleared,  then 
routine  CHARIN  is  scheduled  as  a job.  If  the  UPI^OCKFL  flag  was  not  cleared, 
CHARIN  will  not  be  scheduled  and  the  interrupted  routine  will  be  resumed  because 
an  error  reset  code  must  be  sent  since  the  last  unsatisfactory  key  code  before 
subsequent  key  codes  can  be  accepted. 
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Control  arrives  here  froin  tlie  interrupted  routine 
vvlien  a key  on  the  keyboard  of  the  DSKY  is  depressed 
to  transmit  a eharaeter. 


4024  ^ 


As  control  arrives,  the  5-bit  key 
code  of  the  character  is  in  bit- 
positions  5-1  of  channel  15 


2 

[ARUPT,  LRUPT]  [A,  L] 

A ^ BBANK 

BBANK  — BBCON  of  KEYRUPTl 


Interrupt  lead-in 
routine  (not  a part 
of  KEYRUPTl) 


Between  interrupted  routine  and  lead-in  routine,  hard- 
ware action  causes  BRUPT  B and  ZRUPT  •-  Z so 
that  BRUPT  contains  instruction  p and  ZRUPT  contains 
address  ^ + 2 of  interrupted  routine  sequence  as 
follows: 

+ 0 a (a  is  instruction  being  executed  wlien 
interrupt  began) 

^+1  P O is  instruction  to  be  executed  first 
upon  resuming  interrupted  routine) 


The  current  time  is  saved  in  double  precision 


Key  Code 


MIT  INSTRUMEfiTATlCN  lAB 

APOLLO  GUIDAMCE  AND  NAVIGATION 

DRAWN 

p KEYRUPT  and  UPRUPT 

PRGMR 

ANALST  ^ 

DOCMR 

1 DOCUMENT  NO. 
LUMINARY  IBI  FC-3110 

laliM  (.i 

REV  2 lSHEn4  OF  11 

From  Preceding  Sheet 

i 


Key  Code  (0-0-K) 


Set  DSKYFLAG 

Indicates  that  displays  were  sent  to  the  DSKY. 


MIT  INSTRUMENTATION  LAB 
CWABRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

KEYRUPT  and  UPRUPT 

riRAWN  ^ 

m?/f. 

PRGMR 

7 / 

luminary  id 

DOCUMENT  NO. 
FC-3U0 

ANALST 

nnr.MR 

APPR'D  -aUi.. 

w/aslt.? 

REV  2 ISHEET  b OF  11 

Control  arrives  here  from  the  interrupted  routine 
each  time  a character  is  transmitted  from  the 

gi'UUllu. 


c 


4034 


3 


As  control  arrives  the  5- bit 
key  code  of  the  character 
is  in  bit-positions  15-11 
(true  form),  10-6  (com- 
plement form)  and  5- 1 
Urue  form)  of  the  coun- 
ter inlink; 


[ARUPT,  LRUPTJ  - — [A,  L] 
A * — BBANK 

BBANK  - — BBCON  of  UPRUPT 


Interrupt  lead-in 
routine  (not  part  of 
UPRUPT) 


^UPRUPI^ 


Between  interrupted  routine  and  lead-in  routine,  hardware 
action  causes  ERUPT  - B and  ZRUPT  ^ Z so  that  ERUPT 
contains  instruction  jS  and  ZRUPT  contains  address 
££,  + 2 of  interrupted  routine  sequence  as  follows: 

0 a (a  is  instruction  being  executed  when 
interrupt  began) 

50+  1 /3  (j3  is  instruction  to  be  executed  first 

upon  resuming  interrupted  routine) 


BANKRUPT  <- 

- A 

QRUPT  

Q 

LODSAMPT 

'[SAMPTIME  +0,  +1]'' 
[TIME2,  TIMEl]^ 

FC-3090~ 


The  current  time  is  saved  in  double  precision 


\ 

KEYTEMPl  INLINK 

INLINK  +0 

; 

System 
tests 
fallowed  ? 

INLINK^_j^  = Key  code  in  true  form 
INLINKj^Q_g  = Key  code  in  complement  form 
INLINKj^g_  j = Key  code  in  true  form 

INLINK  is  cleared  to  allow  the  next  key  code 
word  to  be  processed 
No;  after  earth  launch 


Yes;  sum 
1 Uplink  data 


UPSUM<-KEYTEMP1  + UPSUM 
UPSUM  +1<-(UPSUM  +1)  + 1 


Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUI  DAI 'CE  AND  NAVIGATION 

KEYRUPT  and  UPRUPT 

7 ^ 

LUMINARY  ID 

DXUMENT  NO. 
FC-3U0 

A^ALST 

OOCMR 

From  Prec|eding  Sheet 


Test  for  triple  character  redundancy.  If  the  key 
codes  in  bit-positions  5-1  and  15-11  agree  and 
if  the  key  code  in  bit-positions  10-6  is  the  com- 
plement of  the  key  code  in  bit  positions  5-1,  then 
the  key  code  is  accepted. 


Turn  on  UPLINK  activity  light 


Key  code  (three  in  K-K-K  arrangement) 


2 

KEYTEMPl,  _ c " — 0 
15-6 


KEYTEMPlg  = Key  code  in  true  form 
KEYTEMPl^g_g  = 0 


■^10-1  *“ 

'^15-6 

•^15-11'' 

0 

1 

KEYTEMP2  * — A 


Shift  key  code  arrangement  to  the  right  5 bit 
positions  so  that  A contains  the  0-K-K 
arrangement 


Key  code  arranged  0-K-K  will  be  used  for 
second  part  of  redundancy  test. 


Ag  ^ = Key  code  in  complement  form 

Aig  g = Binary  111  111  111  1 


Next  Sheet 


Aj5-6— Alll's 


MIT  INSTRUMENT  AT  l&N  tAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

KEYRUPT  and  UPRUPT 

PRGMR 

DOCUMENT  NO. 

LUMINARY  ID  FC-3110 

ANALST  ^ 

DOCMR 

APPR'D-)fX^trtYfN 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUID.'NCE  AND  NAVIGATION 

KEYRUPT  and  UPRUPT 

WBi 

document  no. 

LUMINARY  IE  FC-3U0 

ANAIST 

DOCMR 

REV  ^ ISHECT  8 OF  11 

From  Precpcling  Sheet 


Yes 


CLUPLOCK 


9 


jg  code  the  error  reset  code? 

''KEYTEMPl  ^ jj.  transmission  of  a 

key  code  was  not  satis- 
factory (K-TJ-K  failure) 
the  UPLOCKFL  flag  will 
bo  set  to  prevent  further 
transmission  of  a key  until 
it  is  preceded  by  the  trans- 
mission of  an  ei'ror  reset 
code  which  will  result  in 
clearing  the  UPLOCKFL 
flag  to  allow  subsequent 
transmissions  of  key  codes 
from  the  ground. 


Clear  UPLOCKFL 
flag  to  allow 
subsequent 
transmissions 
of  key  codes 
from  ground 


Yes 


^CCEPTUH 


Sh.  10 


Has  the  ground  transmitted  an  error 
reset  code  since  the  last  unsaii.s  - 
factory  key  code? — Are  key  codes 
now  permitted  from  the  ground? 
(Is  UPLOCKFL  flag  cleared?) 


\RESUMEy 


Resume  the  interrupted  routine 


APOLLO  GUIDANCE  AND  NAVIGATION 

KEYRUPT  and  UPRUPT 

X DOCUMENT  NO. 

LUMINARY  ID  FC-3110 

ANALST 

OOCMR 

REV  2 1 SHEET  9 OF  U 

From  Sheets  5 and  9 


(acceptui^ 


CHARIN 


NOV  AC  job 
priority  = 30  i 


FC-3090 


Location  CHARIN  is  the  beginning  of  program 
PINBALL  (its  entry  point) 

Program  PINBALL  executes  the  requests  for 
displays  from  the  operator  (key  board)  and 
the  ground 


(MPAC  ? LOCCTR) 


RUPTREG4 


RUPTREG4  = KEYTEMPl  and  contains  the  key  code 
in  the  0-0-K  arrangement 


RESUME  j Resume  the  interrupted  routine 


MIT  INSTRUMEMTATION  UB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATiaN 

. KEYRUPT  and  UPRUPT 

/ / 

DOCUMENT  NO. 
LUMINARY  ID  FC-3U0 

'dxmr 

REV  3 [shed  10  OF  11 

FLAGS 


Meaning  When 

Meaning  When 

Where 

Where 

Where 

Name 

Set 

Clear 

Set 

Cleared 

Tbsted 

DSKYFLAG 

Displays  sent 
to  I»KY. 

No  displays 

Sh.  5 

(Flagword  5 
bit  15) 

to  DSKY. 

NODOP07 

System  tests 

System  tests 

Sh.  6 

(Flagword  3 
bit  11) 

not  allowed 

allowed 

UPLOCKFL 

K-K-K  fail 

No  K-K-K 

Sh.  8 

Sh.  9 

Sh.  9 

(Flagw ord  7 
bit  4) 

fail 

SUBROUTINES  CALLED  WHICH  ARE 
FLOWED  ON  OTHER  FLOWCHARTS 


Subroutine 

Name 


Where 

Description 

Called 

CHARIN 

LODSAMPT 

RESUME 


FC-3090 

FC-3090 

FC-3040 


Entry  to  PINBALL 

Save  current  time  in  double  precision 
Resume  interrupted  routine 


Sh.  10 
Sh.  4.6 
Sh. 8, 9,  10 


UPDATE  PROGRAM  - P27 


V70UPDAT 

Sh 

V71UPDAT 

Sh 

V72UPDAT 

Sh 

V73UPDAT 

Sh 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOaO  GUIDANCE  AND  NAVIGATION 

DRAWN 

UPDATE  PROGRAM 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3120 

Ianalst 

W3!^ 

rsimn 

«EV  ISHEETl  0F15I 

UPDATE  PROGRAM  ( P ^ 7^ 


THE  PURPOSE  0PP27IST0  PROCESS  COMMANDS  AND  DATA  INSERTIONS 

requested  by  the  ground  via  uplink,  the  four  TYPES  OF  updates  are 

ENTERED  BY  UPLINK  ENTRY  OF  VERBS  70,71,  7a  OR  75  ASFOLLOWS: 

(note:  the  astronaut  may  also  use  pet  by  keying  in  verbs  70,  71, 
7 2 OR  73  ON  THE  DSKY^ 

PROVIDES  AN  UPDATE  FOR  LIFT-  PROVIDES  LOAD 
OFF  TIME.  DECREMENTS  AGO  CLOCK  CAPABILITY  FOR 
(Time  a , TIME1_),  TETLEM  AND  1-lBD  SEQUEN- 

TETCSM,  NCREMENTS  TEPHEM  TIAL  LOC  ATIO  N S 


PROVIDES  LOAD 
CAPABILITY  FOR 
1-9  NON-CONSECU- 
TIVE  LOCATIONS 


PROVIDES  A N OCTAL 
INCREMENT  FOR  THE 
AGC  CLOCK  (TIMEa, 
TIME  1) 


70  U PDAT) 


VERB 
NUMBER 
MINUS  70  D 


i^^UPDAT) 


r 


■OOOOO 


i^/TauPOAT  . 


-OOOOl 


(^^3  UP  DAT' 


-0  0 0 02 


-00OO3 


fv73UP0AT  -L  1 


U P V ER  B 5 V— A 1 

1 

TESTXACT 


IF  THE  DISPLAY  SYSTEM 
IS  NOT  AVAILABLE,  THE 
OPERATOR  ERROR  LIGHT 
IS  TURNED  ON  AND  THE 
JOB  IS  TERM  INATED 
(IN  EXTENDED  VER&S) 


'BLANK  DSKY  WINDOW 

I, EXCE PT  major  mode 


AND  verb)  IF  return  IS 
,NORMAlANO  displaysystem  , 
USAVAILABLE.  OTHERWISE,  mot/ 


EXTENDED  VERB  OR  MARK  SYSTEM 
IN  USE  OR  A display  IS  IN  PROGRESS. 

OPERATOR  ERROR  LIGHT 
TURNED  ON. 


FC-  3100 


normal 

RETURN 


PINBRNCH 


TO  PINBRNCH  TO  REST.'.RE 
LAST  NORMAL  DISPLAYAND 
CONTINUE  WITH  INTERRUPTED 
ACTIVITY 


I 

NEXT  SHEET 


WT 

MgHI— MWW  lAt 

CMNmiK.  MSS. 

APOIO 

MD  PIMftCAnON 

UPDATE  PROSRAM  ("P  27) 

UU2UH 

MOHM  M>. 

IA'MINAR\  ID  p(^_2|  2.'0 

AMMST  ^ ' 

•BOW  /?  K 'S.^le. 

■v  1 s»«n  2 or  15" 

FROM 

PRECEDING  SHEET 


TEST  TO  DETERMINE  IF 
UP  DATE  IS  allowed  ? 


P27  ACCEPTS  UPDATES 
0 N LV  I F TH  E INTER- 
RUPTED PROGRAM 
NUMBER  (in  MODREG^ 

IS  POO  FOR  THE  UGC. 


+ 0 = P o c 

-O  = FRESHSTART 


15  MAJOR  MODE  (INTERRUPTED  BY  PZ7)  POO? 
IS  PROGRAM  NUMBER  EQUAL  TO  ± O ? 


NO 


YES 


Sh.  1 3 


UPDATE  ALLOWED, 

S 0 SAV  E THE  MAJOR 
MODE  WHICH  WA  S 

interrupted  by 

P27,  SET  UPVEBB 
TO  CODE  OF  the 
EXTENDED  VERB 

that  called 
UPDATE, AND 
INITIALI2.E  UF  COUNT 
( UPLINK  component 

ccunterJ  to  1 


UPVERBSV 

VIA 

POSTJuMp 


UPPART2 


SAVE  MAJOR  MODE 
ENTRY  CODE. 
initialize  uplink 

COMPONENT  COUNTER 


JL 


GRO  uP  6 


SETUP  RESTA  RTS 
TO  SCHEDULE 
UPOUT  + 1 AS  A FJNDVACy 
JOB  WITH  PRICRITVSO 


LOC  ATION  UPOUT  + 1 
IS  S M OWN  ON  SHEET 


0NLSTCOl> 


zi 


UPDATE 

program  downlist 


FROM 

PRECEDING  SHEET 


(UPVERIFY^ 


STORE  UPTEMP  address  TO  BE 
DISPLAYED  BY  VEINO  E IN  R3, 
ADUPTEMP  ADRES  UPTEMP 


MPAC  + Z — ADUPTEMP 


from 

PRECEDING  SH  EET 


$ 


UPEND70 


liftoff  time  increment 


THE  delta  time  IN  UPBUFF40  AND  uPgUPE+l  IS 
DOUBLE-PRECISION  (l)  subtracted  FROM  THE  AGO 
CLOCK  time  in  TIME2  AND  TIMEl,  ( 2 j SUBTRACTED 
FROM  THE  CSM  STATE  VECTOR  TIME  IN  TETCSM  +0 
AND  TETCSMl-H  , (3)  SUBTRACTED  FROM  THE  LEM 
STATE  VECTOR  TIME  IN  TETLEM  + 0 AND  TETLEM+1 
AND  (4^  TRIPLE  - PRECISION  ADDED  TO  THEE  PH  EM- 
ERIS  TIME  IN  TEPHEM  + 0,TEPHEM  + 1 AND  TEPHEM+2. 


UPBUFF+  8D— UP6UFF 

UPBUFF+9  0-* UP  BUFFtl 


STORE  THE  COMPLEMENTED 
DOUBLE  PRECISION  DELTA 
TIME  FOR  TIMEDIDL 


NEXT  SHEET 


FROM 

PRECEDING  SHEET 


[](TEPHEM+  1),  (TETHEM  + 

[Cup8uff+oJ,(up6uff+i)]+[(tep 

TEPHEM— +0  (OR  + 1 0 

UPBUFF+  o3,  CuPBUFF+Oj 

HEM+lj,(TEPHEM+2j] 
R-1)  + TEPHEM 

^ C+o,  + o] 

GROUPfe 


/set  up  restarts  , 
I'To  schedule  the 

/NEXT  LOCATION  AS 
I A JOB  WITH 
SAME  PRIORITY 


UPOUT 


increment  triple  precision 

TEPHEM  (TIME  IN  EPHEMERlS 
DAYSj.  AFTER  INCREMENTING 
TEPHEM+i  ANDTEPHEM+2, 

IF  OVERFLOW  IS  POSITIVE 

ADO  + 1 TO  TEPHEM;  IF  OVERFLOW 

IS  NEGATIVE  SUBTRACTl. 

TEPHEM  UNCHANGED  (+0) 

I F NO  OVERFLOW 


•rr 

msiaiamMioN  la« 
MSS. 


MMST 


h2L-9^LA 


ATOLLO 

GIflMNCC  MO  NMIOATKM 


UPDATE  PROGRAM  QPZ7) 


LUMINARY  ID 


KV 


OOCUNCUr  NO. 

FC-31  2 0 


i SHKT  lO  OF  IS" 


PERFORM  CONTI&UOUS  BLOCK UPPATE. 


OPEN  D71 


*), 


DATA  CONTAINED  INUPBUFF  + Z,+3,  IS 

STORED  INTO  LOCATIONS  ^^■  + 0 , + 1 ( n - 3)  , 

RESPECTIVELY,  WHEREm^Sg  Tl  ^ DEC  ZO)  IS 
CONTAINED  IN  UPBUFF+O  A N D af  ( if  > 1 074) 
ISAM  ECADR  CONTAINED  INUPBUFF  + l 


EBANK— — (upbuff+1) 
uptemp  — (upbuff-h)  ^ 

^ a~l 


SET  E BANK  OF  THIS  LOCATION 
STORE  RELATIVE  ADDRESS  OF  FIRST 
LOCATION  OF  THIS  BLOCK  OF  CONSECUTIVE 
LOCATIO  NS. 


•UPTEMP  + COMPNUMB-3 


[THIS  BLOCK  IS  ONE 
LOCATION  WHOSE 
RELATIVE  ADDRESS 
IS  0 0 0 0. 


COMPUTE  RELATIVE  ADDRESS  OF  LAST 
LOCATION  OFTHIS  BLOCK  OF  CONSECU- 
TIVE LOCATIONS  (COMPNUMB  CONTA  INS 

^ NUMBER  WHICH  IS  2 MORE  THAN  THE 

S HOU  LD 

I number  of  locations  in  THIS  BLOCK 

AND  IS  3 MORE  THAN  INDEX  NUMBER) 

B LOCK 

OF  CONSECUTIVE  LOCATIONS  BE  TESTED 
TO  DETERMINE  IFITIS  ENTIRELY 
WITHIN  CURRENT  BANK  ? 

ISTHIS  BLOCK  OF  CONSECUTIVE  LOCATIONS 
SITUATED  ENTIRELY  WITHIN  CURRENT  E BANK’ 


MPAC— — A 
L— — (UPBUFF  + 2 4 XI) 

A — MPAC  4 UP  TEMP 

1400  4X1— L 


mm 

DECREMENT 

COUNTER 


NO 


HAVE  ALL  THE 
DATA  BEEN 
transfer- 
red ? 


CALCULATE  INDEX  FOR  WORDS  TO 
BE  STORED, 

(index  number  is  one  LESS  THAN 
NUMBER  OFWOROS  TO  BE  STORED) 


XIIS  A NOTATION  FOR  AN  INDEX  AND  IS 
EQUAL  TO  the  CONTENT  OF  MPAC. 

STORE  CURRENT  WORD  COUNT  INDEX  IN 
MPAC. TAKE  NEXT  UPDATE  WORD  FROM 
UP8UFF  LIST,  SAVE  IT  IN  L , CALCULATE 
NEXT  RECEIVING  ADDRESS,  AND  TRANSFER 
THE  UPDATE  DATA  FROM  L TO  THE 
RECEIVING  REGISTER. 


«MT 

IWtWMMniWTWW  LAi 

cmmrni.  was. 

AfQUJO 

oufMNCi  fm  mncnm 

update  PROGRAM  (P27) 

MMH  ^ J 

ZIOSJH 

mum  ]:C, 

•OQMBirW. 

LUMINARY  ID  PC-31Z0 

nms\  , / . 

■ocM  (F. 

w 1 SMHr  11  or  15  1 

FROM 

PRECEDING  SHEET 


LDLOOP7Z 


A — (UPBUFF+1  + X3) 

(location  whose  ecadr  is 

IN  Aj  — L 


HAS  all  the 


X3  IS  A NOTATION  FOR  AN  INDEX  AND 
IS  EQUALTO  THE  C O N T E N TS  OF 
MPAC,  obtain  next  RECEIVING 
ADDRESS,  ANDTRANSFER  THE  UPDATE 
DATA  FROM  L TO  THE  RECEIVING 

register. 


DATA  been  transferred? 


INTWAKEU 
' release \ 
grab  of  orbital 
integration  / 
Xfc-ssfo  7 


UPERROR  ) ERROR  EXIT 


VIA  POSTJUMP 


(UPERROUT  + 2 


EXITS  WITHOUT 
RESETTING 
restart 
GROUP 


( UPOUT+1 


UPOUTA- 


NORMA  L EXIT  ; 
RESETS  RESTART 
GROUP 


UPOLDMOD 


/NEWMODEX-l-3  \ 
RESTORE  MODREG 
WITH  INTERRUPTED 
■MAJOR  MODE  NUMBER 
\(lN  A)  AND  DISPLAY  IT 
VpC-30  2 0 7 


dnlstadr- 


-LPOSTP27 


UPACTOFF  N 
TURN  OFF  THE 
UPLINK  ACTIVITY 
LIGHT  (BIT  3 
CHANNEL  llj 
SHEET lA  y 


THE  NUMBER  ' 
OF  THE  MAJOR 
MODE  INTER- 
RUPTED BY  P27 
WAS  SAVED  IN 
UPOLDMOD  ON 
SHEET  1 


TURN  ON  THE  ' 
OPERATOR  ERROR 
L|GHT(SET  BIT  7 
OF  CHAN  lO  ! 
\FC-3090  / 


/ UPACTOFF  \ 
TURN  OFF  the  ' 
UPLINK  ACTIVITY 
LIGHT  (CLEAR  BIT 
3 OF  CHAN  11  j ^ 
V SHEETIA-  / 


return  VIA/ 
ENDEXT  / 


RESTORE  THE  DOWNLlST  FORTHE 
INTERRUPTED  MAJOR  MODE  POO. 
(POST  27 COAST  AND  ALIGN) 

LPO  STP27  OCT  0 


GROUP  fe.O 
/ 1 N ACTIVATE 

/group  4>  j 
/restarts  / 


NORMAL  EXIT 


RETURN  VIA 
\ ENOEXT  / 


iiKimMMrATiaN  us 
cmmnitt.  mass. 


APOUO 

CUIMMCE  M0  MVICATIOIf 


UPDATE  PROGRAM  (PZ7) 


LUMINARY 


'1°  FC-3IZ0 


SHEIT  13  «r  IS 


UPDATE  A&C  CLOCK  TIME 


subroutine 


, TIMEDIDL) 


THE  DELTA  TIME  (DOUBLE  PRECISION) 
IN  UPeUFF+8D  AND  UPBUFF+QO  IS 
ADDED  TO  THE  CLOCK  TIME  IN  TIME  Z 
AND  TIMEl.(lF  THERE  IS  NO  OVERFLOW) 


(UPACTOFF) 


SUB  - 
ROUTINE 


UPTEM  P-» 0 

QuPBUFF  + lgD),(uPBUFF  + 19Dj)-^[jlMEZ,TIME^ 
[ TIMEZ  , TIMEi]  ^ C ° 


/ GR0UP6.5 

/set  up  restarts 
/to  schedule 
/timedidrasa  / 
/finovac  job  with  / 
/priority  30  / 


timedidr 


INHIBIT 

inter- 

rupts 


SAVE  Q FOR  return 
STORE  DOUBLE  PRECISION 
CLOCK  TIME  IN  UPBUFF+  V 
18D  AND  UPBUFF  + i9D 
IN  CASE  OFOVERFLOW, 
CLEAR  TIME  Z AND 
TIMEl  . 


CLEAR  BIT/  turn  OFF 
y 3 OF  / THE  UPLINK 
\cHANll/  ACTIVITY 
i LIGHT 


RETURN  VIA 

V <5  / 


M PAC  + Z — 0 0000 

QmPAC) , ( M PA C+ 1^  — — [[(U P B UFF+ 8 D), 

(uPBUFF+9D)]  + [(UPBUFF+18D),(UPBUFF  + 19d3 


FORM  DOUBLE  PRECISION  SUM 
OF  CLOCK  TIME  AND  DELTA  TIME. 
STORE  IN  MPAC  AND  M PA  C + 1 


[■UPBUFF  + gD,  +9D]— — C0,0] 


TEST  FOR  OVERFLOW 


OVERFLOW  ? 


? VES 


DELTATOK) 


[tiMEZ.TIMEi]  — [TIMEZ,TIMEf]  + 
[(UPBUFF+180),  (UPBUFF  + 19D)]  CLOCK 

t(UP8UFF  + i8D),(UPBUFF+19D)]-^[o,o] 


/ TPAGREE  \ 
' TO FORCE 
\^SIGN  AGREEMENT 

\fc-3iTo  7 


/ GROUPG 
/set  up  RESTARTS 
/to  schedule  the 
/next  location  as  / 
/a  uob  with  same  / 
'priority  / 


TIMEZ 

TIMEl 


•—  MPAC+  TIMEZ 
-(MPAC  + 1)  + TIMEl 


store  newly 

FORMED  DOUBLE 
PRECISION  CLOCK 
VALUE 


.return  VIA 
\ UPTEM  P / 


/ GRoilPfe 

/sE-TuF^isTTRTFTW 

/schedule  the  next/ 

/LOCATION  ASA  / 

/job  with  same  / 
PRIORITY  / 


AKU.0 

GUItANCE  AM  NAVteATION 


UPDATE  program  (PZT) 


ROUTINES  CALLED  ON  OTHER  FLOW  CHARTS 


SUBROUTINE 

FLOWCHART 

WHERE  CALLED 

FALTON 

FC-3090 

SH.  9.  10,  13 

GOMARKF 

FC-3080 

SH.  4,  5,  6 

INSTALL 

FC-3350 

SH.  8 

INTWAKEU 

FC-3350 

SH.  13 

NEWMODEX 

FC-3020 

SH.  3,  13 

PINBRNCH 

FC-3080 

SH.  2 

TESTXACT 

FC-3100 

SH.  2 

TPAGREE 

FC-3140 

SH.  14 

FLAGS 


MEANING 

WHEN  SET 

MEANING 

WHEN  CLEARED 

WHERE 

SET 

WHERE 

CLEARED 

WHERE 

TESTED 

REINTFLG 

FLAG  10  BIT  7 

Integration  Routine 

To  be  restarted 

Integration  Routine 

Not  to  be  restarted 

SH.  8 

VERIFLAG 

FLAG  7 BIT  3 

Changed  when  V33E  occurs  at  end 

of  P27 

SH.  8 

SH.  8 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

UPDATE  PROGRAM 

DRAWN  _ C.~rhdt^ 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3120 

lANALST 

ALARM  AND  ABORT 


The  alarm  routine  and  its  associated  entries  are  used  for  setting  the  alarm 
cocje  into  one  Cft  the  FAILREG  registers.  It  turns  on  the  program  alarm  light  (by 
setting  bit-position  9 of  register  DSPTAB+llD  to  one).  The  aiarm  code  (or  codes) 
is  then  available  for  display.  Also,  the  2CADR  of  the  location  where  the  alarm 
condition  occ«L'red  ir  set  into  the  ALMCADR  register. s so  it  is  available  for  display. 

There  are  three  FAILREG  registers  for  storing  alarm  codes.  The  first 
alarm  code  is  set  into  registers  FAILHEG  and  FAILREG+;<.  The  second  alarm 
code  is  set  Into  registers  FAILREG+1  and  FAILREG+2.  The  last  (.^rd  or  more) 

.is  set  into  register  FAILREG+2.  Subsequent  alarm  codes  (3rd  or  more)  will 
replace  the  existing  alarm  code  in  register  FAILREG+2.  This  will  continue  as 
additional  alarm  condiiions  are  encountered  until  the  operator  depresses  the  error 
light  reset  l.ey.  Befci’e  depressing  this  key,  the  operator  will  normal’  ■ key  in  verb 
05  and  noun  09,  which  will  cause  the  contents  of  all  throe  of  the  FAILREG  registers 
to  be  displcyed  so  that  the  operator  can  determine  the  type  of  alarm  condition  from 
the  aiarm  code  (see  Table  of  Alarm  Codes  versus  Alarm  Conditions,  etc. 
on  sheet  6)  and  can  respond  with  appropriate  action.  If  further  information  is 
necessary,  ihe  operator  will  also  key  in  verb  05  and  noun  08,  which  will  cause  the 
contents  of  registers  Aj,.,MCADR,  AT.MCAUR+1  and  ERCOTiNT  to  be  displayed 
The  operator  can  then  determine  the  location  of  the  a'arm  condition  from  the 
2CADR  in  registers  ALMCADR  and  ALMCADR+1  anc  determine  the  number  of 
errors  detected  in  the  self  chock  program  (since  fresn  .start)  from  the  count  in 
register  ERCOUNT.  These  errors  are  identified  by  alarm  code  OCT  J102. 
Depressing  the  ('rror  light  reset  key  will  clear  registers  FAILREG  and  FAILREG+1 
and  turn  off  the  program  alarm  light  A fresh  start  will  also  do  this  and  clear 
FAILREG+2  in  addition.  Registers  ALMCADR  and  ALMCADR+1  are  never  cleared 
to  zero.  Their  contents  are  replaced  each  time  an  alarm  condition  occurs.  Register 
ERCOUNT  is  cleared  to  zeio  only  during  fresh  start.  Each  time  an  error  is 
detected  by  self  '"heclr,  register  ERCOUNT  is  incremented  by  one. 

Alarm  conditions  are  due  to  program  detected  failures.  If 
the  failure  is  not  serious,  control  returns  to  the  calling  sequence.  If  the  failure  is 
serious,  no  return  is  made  and  am  abort  is  made  resulting  in  a .software  restart. 
Failures  which  are  not  serious  use  the  following  entries-  PRIOLARM,  VARALARM, 
CURTAINS,  ALARM,  ALARMl  and  ALARM2.  Failures  which  are  serious  use  the 
foUowing  entries:  BAILOUT,  POODOO,  CCSHOLE,  BAILOUTl  and  POODOOl. 
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jiacii  entry  will  make  the  alarm  code  available  lor  display  and  turn  on  tiie 
program  alarm  light  (if  off).  Only  entry  PRIOLARM  will  display  the  alarm  codes 
in  the  three  FAILREG  registers.  The  return  location  and  the  location  containing 
the  alarm  code  is  given  in  the  calling  sequence  for  each  entry  shown  at  the 
top  of  sheets  3,  4,  5,  7 and  8. 

Besides  turning  on  the  program  alarm  light  (if  off)  and  making  the  alarm  code 
available  for  display,  other  functions  of  each  entry  are: 


PRIOLARM  Sh.  3 


VARALARM  Sh.  3 


CURTAINS  Sh.  4 


ALARM  Sh.  4 


ALARMl  Sh.  8 


Displays  the  alarm  codes  via  PRIODSPR 
(V05N09)  and  returns.  Used  by  the  "target 
out  of  view"  alarm  condition. 


Calling  sequence  obtains  a variable  alarm 
code  from  an  applicable  register.  Returns  to 
calling  sequence. 


Alarm  code  OCT  217  is  only  one  used.  Used 
for  bad  returns  from  stall  routines.  Returns 
to  calling  sequence. 


Used  for  alarm  conditions  such  as  improper 
input  data,  etc.  Returns  to  calling  sequence. 


Alarm  code  OCT  01301  is  the  only  code  used. 
Used  by  Interpretive-coded  routines  via  the 
Interpretive  Program  for  alarm  conditions 
such  as  improper  input  data.  Returns  to 
calling  sequence. 


ALARM2 


Alarm  code  OCT  1102  is  only  code  used.  Used  | 
only  by  self  check  program  when  an  error  is 
detected.  Returns  to  calling  sequence. 


BAILOUT 

and 

BAIl.OUTl 


Terminates  in  a software  restart.  Used  by 
alarm  conditions  such  as  no  vac  areas 
available,  too  many  tasks,  etc. 


POODOO 

and 

PQQOQQl 


tCSHOLE  Sh.  5 


Inactivates  all  restart  groups  except  those 
associated  with  the  Servicer  (if  running) 
and  terminates  in  a software,  restart,  and 
GOTOPOOH  and  flash  verb  37  for  operator 
to  select  new  major  mode,  l/sed  by  alarm 
conditions  such  as  an  attempt  to  take  the 
square  root  of  a negative  number,  illegal 
flashing  display,  etc. 


Alarm  code  OCT  21103  is  only  code  used. 
Inactivates  all  rested,  groups  except  these 
associated  with  the  Servicer  (if  running) 
and  terminates  in  a software  restart,  and 
GOTOPOOH  and  flash  verb  37  for  operator 
to  select  new  major  mode.  Used  when 
unused  CCS  branch  is  executed. 
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Two  of  the  Six 

Non- Abortive  Entries  with  Return 


Displays  Alarm  Code 

From  7 locations 
via  BANKCALD  with  A = ALA.RM 
code.  fBUF2.  BUF2  + 1J  = 2CADR 
of  <-+2 


Calling  sequence 

X +0  TC 

BANKCALL 

X -tl  CADR 

PRIOLARM 

X +2 

Terminate 

X +3 

Proceed 

'X  +4 

Enter 

X -ts 

Immediate  Returr 

From  4 locations  with  A = alarm  code 

Calling  sequence 
X -to  TC  VARA  BARM 
X -t-l  Return 


Note:  Symbol  " = " means  "contains"  in  this  flow  chart. 

The  address  stored  in  register  ALMCADR  is  not  used  as  a return  address  for 
these  entries  (PRIOLARM,  ALARM.  ALARMl,  ALARM2  via  self  check,  BAILOUT, 
BAILOUTl,  POODOO,  POODOOl  and  CCSHOLE)  while  the  other  two  entries 
(VARALARM  and  CURTAINS)  do  use  the  address  as  a return  address.  However, 
the  address  associated  with  each  entry  in  register  ALMCADR  and  its  BBCON  in 
I register  ALMCADR  -fl  and  the  contents  of  register  ERCOUNT  are  available  for 
display  by  VERB  t)5,jBiid-NGUN.08. 
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Three  of  the  six 

Non-Abortive  Entries  with  Return 


ALARM2 

entry 

Entered  from  location 
TCALARM2  of  self 
check  program  with 
GENADR  of  alarm 
location  in  A 

Calling  sequence  is:- 
X + 0 TC  . ALARM2 
X + 1 OCT  01102 
X + 2 Return 

A = address  of  failure 
location 


From  locations 

Calling  sequence 

+ 0 TC  CURTAINS 
dC  + 1 Return 

One  Alarm  Code 
(OCT  0217)  in 
CURTAINS  +Z 

fcURTAIN^ 


Frcffla  51  locations 

Calling  sequence 
^ + 0 TC  ALARM 
X + 1 OCT  CODE 
2 Return 


^ALAldVI^ 


Inhibit 

inter- 

rupts 


Return 

Address 


A =2:+  1 


Address  of 
Alarm  Code 


A — 

-Q 

A — 

-Q 

A =X+  1 


The  Alarm  Code  for 
ALARM2  entry  from 
self  check  is  in  location 
TCALARM2'  +1 
and  is  OCT  01102 


^ALARM^ 


ALMCADR 

A 


♦- A 


1) 


The  Alarm  Code 
for  CURTAINS 
entry  is  in 

location  CURTAINS +3 
and  is  OCT  0217 


From  BAILOUT.  POODOO  (via  ABORT2)  and 
CSSHOLE  (via  ABORT2)  on  Sheet  5 


Return  address 
for  CURTAINS 
(not  used  by 
ALARM*) 

+ 1 = Alarm  Code  where 
X ■ TC  ALARMP, 

TC  ALARM  2 or 
TC  ALARM 

{Xis  TCALARM2,  CURTAINS 
+ 2 or  any  of  41  locations)  for 
entries  ALARM  2.  CURTAINS 
or  ALARM,  respectively. 


Alarm  Code 


* The  address  stored  in  register  ALMCADR  is  not  used  as  a return  address  for  these 
entries  (PRIOLARM,  ALARM.  AI^ARMl,  ALARM2  via  self  check,  BAILOUT, 
BAILOUTl,  POODOO,  POODOOl  and  CCSHOLE)  while  the  other  two  entries 
(VARALRM  and  CURTAINS)  do  use  the  address  as  a return  address.  How- 
ever, the  address  associated  with  each  entry  in  register  ALMCADR  and  its 
BBCON  in  register  ALMCADR  and  its  BBCON  in  register  ALMCADR  +1  and 
the  contents  of  register  ERCOUNT  are  available  for  display  by  VERB  05  and 
NOUN  08. 
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Abortive  Entries  Ending  in  Restart 


F r om : 3 loc«-ti6tis 

Calling  sequence 

ar  + 0 TC  BAILOUT 

Z + i OCT  CODE 

/■No  Return 


From  5 locations' 

Calling  sequence 
^ + 0 TC  POODOO 
JT  + 1 OCT  CODE 

No  Return 


^(bailout^ 


From  23  locations 

Calling  sequence 
^ + 0 TC  CCSHOLE 
No  Return 
One  Alarm  Code  (OCT 
21103)  in  CCSHOLE+3 


^POODOO^ 


^CSHOLE^ 


Address  of 
Alarm  Code 


ALMCADR  --  Q j 

- 

1 

(VLMCADR  =X+  1 
(not  used  for 
return  * ) 

1 

A—  {X.+  1) 

A = Alarm  Code 

Inhibit 

Inhibit 

Inhi 

bit 

inter-. 

inter- 

inter- 

rupts 

rupts 

rupts 

Address  of 
Alarm  Code 


Return 
Address 
(not  used  * 


A « JC+1* 
where 

X * TC  POODOO 


•Q  I 


X/  = 1*  .where 
;<1  = TC 
CCSHOLE 


C 


ABORT2' 


ALMCADR^- 


A*-(af+  1) 


Return  address  not  used.  ^ +1  * 
alarm  code  where  oJT  = TC  POODOO 
or  TC  ABORT2  (X-is  CCSHOLE 
+2).  The  alarm  code  for  CCSHOLE 
entry  is  in  location  COSHOLE  +3  and 
is  OCT  21103. 


The  address  stored  in  register  ALMCADR  is  not  used  as  a return  address  for 
these  entries  (PRIOLARM,  ALARM,  ALARM  1,  ALARM2  via  seU  check,  BAILOUT, 
BAILOUTl,  POODOO,  POODOOl  and  CCSHOLE)  while  the  other  two  entries 
(VARALARM  and  CURTAINS)do  use  the  address  as  a return  address.  However,  the 
address  associated  with  each  entry  in  register  ALMCADR  and  its  BBCON  in 
register  ALMCADR*!  and  the  contents  of  register  ERCOUNT  are  available  for 
display  by  VERB  D5  ahd  NOUN  08. 
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BAILOUTl  stores  an 
alarm  code  and  an 
alarm  2CADR,  and 
then  does  a restart 


POODOOl  stores  an 
alarm  code  and  an  alarm  CADR, 
cleans  out  the  restart  table 
(except  for  servicer) 
and  then  does  a restart 


TC  BAILOUTl 
+ 1 OCT  code 
L = Alarm  2 CADR 
No  Return 


^ : TC  POODOOl 

^ + 1 OCT  code 
A,  L = Alarm  2CADR 
No  Return 


(bailout^ 


lALMCADR^A,  l] 


POODOOl 


£ 


Inhibit 

Inhibit 

inter- 

inter- 

rupts 

rupts 

I ALMCADR^A,  L | 


Save  2CADR 
left  by  caller 
in  A,  L(for 
NOUN  8 dis- 
play). 


ITEMPl^ADR(BAILOUT+6)  j 


I ITEMP14-ADR(ABORT2+4)  I 


(tothabr^ 


Set 
up 
exit 
address 


1 i 

1 L< — (i 

1 1 

*+  1)  1 

i 

ICHKFAILl 

\Sh.lO  / 

Pick  up  alarm  code 
from  location  whose 
address  is  in  Q 
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From  location  ACOSABRT  +2 
of  the  interpreter  program 


+0  TC  ALARM 1 

+ 1 OCT  code  (01301) 

+ 2 Return  here 

A,  L = 2CADR  of  alarm 
location 


(^LARMl^ 


Inhibit 

inter- 

rupt 


ALARMl  stores  an  alarm  code  and 
the  2CADR  of  the  location  associated 
with  the  alarm  condition  and  returns 
to  the  calling  sequence  ats^t-  2. 
Control  arrives  with  the  2CADR  in 
A and  L. 

Though  control  comes  from  the 
interpreter  program,  the  2CADR 
is  of  a location  in  an  interpretive  — 
coded  routine  that  is  elsewhere. 


[ALMCADR+0,  +1]*-[A,  L] 


Inhibit 

inter- 

rupts 


|L<— + iT] 


2CADR  of  location  of  the  alarm 
condition 


Alarm  code 


♦ 

Next  Sheet 
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From  Preceding  Sheet  and  Sheet  6 


(^ARMENT^ 


ITEMPl 


-Q 


W 

Next  Sheet 


Return  Address  to  either  the  entry  calling 
sequence  or  the  BORTENT  (or  PRIOENT) 
calling  sequence.  ITEMPl  contains  one  of 
the  following  Return  Addresses  depending 
upon  which  entry  was  used: 


ITEMPl  = 
ITEMPl  = 
ITEMPl  = 
ITEMPl  = 


ITEMPl  = 
ITEMPl  = 


PRIOLARM+6 

VARALARM+5 

CURTAINS+3 

se.+  1 whereS<=  TC  ALARM  or 
5^  = TC  ALARMl  or.^  = TC 
ALARM2 

BAILOUT+6  if  via  BAILOUT  or 
BAILOUTl 

ABORT2  + 4 if  via  POODOO, 
POODOOl  or  CSSHOLE 


NOTE:  Symbol  "="  means  "contains"  in  this  flowchart 
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From  Sheet  7 and  Preceding  Sheet 

„if . 


( 'S  Update  Table  of  Alarm  conditions. 

[CHKFAILi;  Registers  FAILREG  and  FAlLREG+1 
^ are  set  with  the  first  and  second 

ALARM  CODES,  respectively,  since 
these  registers  were  last  cleared. 
FAILREG+2  is  set  with  each  ALARM 
CODE,  thus  it  will  contain  the  last 
ALARM  CODE. 


FAILREG 


Alarm 

Code 

(1st) 


/ Is  this  the  first  ALARM  since 

FAILREG^.  the  FAILREG  registers  were 
= +0  ? last  cleared  ? 


Note:  The  first  two  FAILREG 
^ Q registers  are  cleared  by 

depressing  the  error  light 
reset  key.  (Program  alarm 
light  is  also  turned  off).  A 
I , fresh  start  clears  all  three 

^ \ FAILREG  registers  and  the 

fCHKFAIL^  alarm  light. 


Is  this  the  second 

(FAILREG  fl)N  alarm ? 

\ =+0  ? / 


(FAILREG  +1) 


Alarm  Code 
(2nd) 


Next  Sheet 
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From  Preceding  Sheet 


PROG LA RM 


Most  recent 
Alarm  Code 


Tern  on  Program 
Alarm  light 


Causes  T4RUPT  Program  to  transmit 
contents  of  BIT -positions  11-1  of  DSPTAB 
+11D  tc  CHAN  10  during  next  pass  through 
T4RUPT. 


Return  Addi-ess 


According  to  the  entry  used,  A contains  one  of  the 
following  return  addresses: 

A = PRIOLARM  +7 
A = VARALARM  +6 
A = CURTAINS  +4 

A=  (;s^+2)  where  = TC  ALARM  or  TC  ALARMl  or 
sC.  = TC  ALARM2 

A = BAILOUT  +7  if  via  BAILOUT  or  BAILOUT  1. 

A = ABORT  2 + 5 if  via  POODOO  or  CCSHOLE  or 
POODOOl. 
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R10LARM+7J 


From  Preceding 
Sheet , 


V 


To  ^ + 1 location  of 
VARALARM  calling 
sequence  wl^ere  ^ = 
TC  VARALARM 


A- |V05N09 

\ 

1 

Verb  05  and  .loun  09 
initiated  hy  program 
control 

V05N09  VN  0509 
V05N09  OCT  01211 


PRIODSPR 
V05N09 

Displays  Alarm 
^odes  in  Rl,  R2,  R3/ 

FC-3130 


Displays  the  contents 
(Alarm  Codes)  of 
registers  FAILREG, 
FAILREG+1  and 
FAILREG+2 


Terminate 

Proceed 

Enter  , 

Immediate  Return 

roX  + 2 ! 

To  + 3 ^ 
ToJf  + 4 
To  at  + 5 


From  Preceding 
Sheet 


ToX+  1 location  of 
CURTAINS  calling 
sequence  where ^ = 
TC  CURTAINS 


Location  of 
PRIOLARM 
calling 

sequence  (Sh.  3 ) 

(only  ai  + 5 is  used 
where  ^ =•  TC  BANKCALL 
and  :2;  + 1 = CADR 
PRIOLARM 
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From  Sheet  11 


IBAILOUT  +1?  I 


Cause  "Resume"  to  go  to 
following  location 


iRESUMEi 
' I 


To  get  out  of  interrupt 
mode  if  in  it 


via  POST  JUMP 


GOPROG2 


FC-3010 
h.  18 


Software 

Restart 
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From  Sheet  11 


_ 'L  _ 


fABORT2  +5' 
\ / 


I 


GROUP  4.  35 


/Set  Up  Restarts  To 
^Restart  Group  4 At 
GOPOODOO  As  A 
NOVAC  Job  With 
Priority  31 


Restart  project  this  routine 
before  cleaning  out  the  phase 
table 


(GOPOODOC 


Inhibit 

Inter- 

rupts 


^ FLAGS  ^ 


Via  BANKCALL 

~]  Subroutine 


Cleai^ 

Bit  5 Of  I 
FLAGWRD3 


Clear' 

Bit  7 Of 
FLGWRDIO 


CleaF 
Bit  1 Of 
FLAGWRD2 


L 


eturn  via/ 

Q_V 


Permanent  state  vector 
not  updated 

STATEFLG 


Integration  routine  not  to 
be  restarted 


REINTFLG 

V3  7 permitted 
NODOFLAG 


I 

Via  SWRETURN 


Next  Sheet 
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iiini, 

From  Preceding  Sheet 


via  BANKCALL 

n 

^3  7KLEAN) 


/ GROUP  1.  3.  5, 
/ Deactivate 
/Restart  Groups 
1,  3.  5,  and  6 (Set 
/Phase  to  0) 


Return  via/ 

X Q V 


_ J 


/ Is 
Bit  6 Flag  7^ 
. Set  ^ 


Is  AVERAGEG  (Servicer) 
running?  (Is  V37FLAG 
on?) 

Yes,  keep  SERVICER  going 


3TRTIDLE 
V Sh.16  ^ 


In  case  of  a restart,  the  active  status 
of  Group  4 (just  set  to  restart  at 
GOPOODOO)  is  maintained  until  all 
other  groups  are  first  deactivated. 

This  is  accomplished  by  executing 
subroutine  MR.  KLEAN  after  V37KLEAN 
which  causes  the  groups  to  be  deactivated 
in  the  following  order: 

1,  3,  5.  6 , , ,2,  4,  1,  3,  5 & 6, 


V37KLEAN  MR.  KLEAN 

The  last  four  are  redundant 


via  SWRETURN 
via  BANKCALL 


IR.  KLEAr 


GROUPS  1-6 
Deactivate 
All  Restart 
Groups  (Set  Phase 
:o  0)  / 


VReturnviy  I 

\ Q / ^ 

via  SWRETURN 
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Alarm  and  Abort 


DOCUMENT  NO. 

FC-3140 


r TTTX/TTTvTA  "RV  1 7~) 

Lj  U i XJ-^ 

From  Preceding  Sheet 


A 


(STRTIDL^ 


Put  servicer  in  idle  mode 


(SERVIDL^ 


AVGEXIT« 


-2CADR(SERVEXIT) 


Disconnect 
servicer  from 
any  guidance 


Set 
IDLEFLAG 
Set 

LR BY PASS 


Clea, 

Bits  14-1  oil 
iGWRDll 


Disconnect  AV  monitor 

Bypass  LR 
(Terminate  P12) 


Turn  off  R12  if  running. 
Otherwise,  no  effect 


GROUP  1. 
isable 
'Group  1 


Next  Sheet 
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DRAWN 

Alarm  and  Abort 

LUMINARY  IE 

DOCUMENT  NO. 

FC-3140 

analst'I lT /f 

wmmmrnmim 

APPR'D 

REV  2 ISHEHie  OF  24  | 

From  Preceding  Sheet 
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CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Alarm  and  Abort 

DRAWN 

PRGMR  '1  /J'hCou 

08911 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3140 

ANALST 

iZ-H-Cl 

uSSSSPffiRSRESill 

ISi98 

REV  2 ISHECT  I7OF94  J 

Note  A 


From  Precp^ing  Sheet  and  Sheet  15 


(w 


WHIMPER 


ERUPT-.-  Z + 2 

[ 

1 

J RESUME  j 

t I 


Cause  "Resume"  to  go 
to  following  location 


To  get  out  of  interrupt 
mode  if  in  it 


Go  to  routine  GOTOPOOH 
and  display  flashing  verb 
37  unless  no  major  mode 
was  active  in  which  case 
control  goes  to  DUMMY  TOB 
+2  (see  restart.  Sheet  21  of 
FC-3010). 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

AIot'tt!  '"iH  Abfirt 

DRAWN  'y::..rr'..rjL 

PRGMR  /iQAMjLe,  H'i'UCe-. 

LUMINARY  ID 

DOCU,V£>a  NO. 

FC-3140 

AriALST  /;/ 

DOCMR  S.  I'SjurA 

ll-lC-Ll 

APPR'D^Au.&^IYvTr..^.^ 

S/W70 

REV  2 1 SHEET  18  or  ^ 

ALARM  AND  ABORT 


TABLE  OF  ALARM  CODES 


Alarm 

Code 

Alarm  Condition 

Set  By 

Alarm 

Entry  Used 

00107 

More  than  5 mark  pairs 

AOTMARK 

ALARM 

00111 

Mark  missing 

AOTMARK 

ALARM 

00112 

Mark  or  mark  reject  not  being  accepted 

AOTMARK 

ALARM 

00113 

No  inbits 

AOTMARK 

ALARM 

00114 

Mark  made  but  not  desired 

AOTMARK 

ALARM 

00115 

No  marks  in  last  pair  to  reject 

AOTMARK 

ALARM 

00206 

Zero  encode  not  allowed  with  coarse  align 
and  gimbal  lock. 

IMU  mode 

switching 

routines 

ALARM 

00207 

ISS  turnon  request  not  present  for  90  sec 

T4RUPT 

ALARM 

00210 

IMU  not  operating 

IMU  mode 

switching 

routines 

VARALARM, 

ALARM 

00211 

Coarse  align  error 

IMU  mode 

switching 

routines 

ALARM 

00212 

PIPA  fail  but  PIPA  is  not  being  used 

IMU  mode 
switching 
routines, 
T4RUPT 

ALARM 

00213 

IMU  not  operating  with  turn-on  request 

T4RUPT 

ALARM 

00214 

Program  using  IMU  when  turned  off 

T4RUPT 

ALARM 

00217 

Bad  return  from  IMUSTALL 

P51-P53 

CURTAINS 

00220 

IMU  not  aligned  - no  REFSMMAT 

AGS  initial- 
ization 

IMU  mode 

switching 

routines 

ALARM, 

VARALARM 

00401 

Desired  gimbal  angle  yields  gimbal  lock 

IMU-2 
inflight 
alignment 
routines. 
FINDCDUW  - 
GUIDAP  inter 
face,  attitude 
maneuver 

routine 

ALARM 

APOUO  GUIDANCE  AND  NAVIGATION 

Alarm  and  Abort 

DOCUMENT  NO. 

LUMINARY  ID 

FC-3140 

REV  ^ 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


DRAWN 


PRGMR 
ANALST 
DOCMR 


T 


APPR'D-<',.fo,^A>.fyA  7^iX^y 


\lz-U‘Lf 


A/at>>76| 


Alarm 

Code 


Alarm  Condition 


00402  FINDCDUW  not  controlling  attitude 

Two  stars  not  available  in  any  detent 
Two  stars  not  available 
W-matrix  overflow 

Radar  antenna  out  of  limits 
Bad  radar  gimbal  angle  input 
Radar  antenna  designate  fail 


Radar  auto  discrete  not  present 
LR  antenna  out  of  position  1 or  2 for 
more  than  10  seconds 
RR  goes  out  of  auto  mode  while  in  use 

RR  CDU  fail  discrete  present 
Radar  rupt  not  expected  at  this  time 


Landing  radar  position  change 
523  LR  antenna  didn't  achieve  position  2 

525  Delta  theta  greater  than  3 degrees 

526  Range  greater  than  400  naut.  miles 

527  LOS  not  in  mode  2 coverage  while  on 
lunar  surface 

LOS  not  in  mode  2 coverage  on  lunar 
surface  after  600  seconds 

Imaginary  roots  on  first  iteration 

Perigee  altitude  CS I IT  PMINI 

Perigee  altitude  CDH  LT  PMIN2 

CSI  to  CDH  time  LT  TMINI2 

CDH  to  TPI  time  LT  TMIN23  or  computed 
CDH  time  greater  than  input  TPI  time 

Number  of  iterations  exceeds  loop  maxi  - 
mum 

DV  exceeds  maximum 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


Set  Bv 

FINDCDUW  - 

GUIDAP 

interface 

ALARM 

P51-P53 

ALARM 

P51-P53 

ALARM 

Orbital 

integration 

ALARM 

P20-P25 

PRIOLARM 

P20-P25 

ALARM 

P20-P25, 

PRIOLARM. 

extended 

verbs 

ALARM 

P20-P25 

ALARM 

SERVICER 

ALARM 

P20-P25 

PRIOLARM 

T4RUPT 

ALARM 

P20-P25 
(radar  readl 

ALARM 

Radar  lead- 
in  routines 
(radar  read) 

ALARM 

V59 

ALARM 

P20-P25 

PRIOLARM 

P20-P25 

PRIOLARM 

P20-P25 

ALARM 

P20-P25 

PRIOLARM 

P32-P35, 

P72-P75 

VARALARM 

P32-P35, 

P72-P75 

VARALARM 

P32-P35, 

P72-P75 

VARALARM 

P32-P35, 

P72-P75 

VARALARM 

P32-P35, 

P72-P75 

VARALARM 

P32-P35, 

P72-P75 

VARALARM 

P32-P35, 
P72-P75  ! 

VARALARM 

APOUO  GUIDANCE  AND  NAVIGATION 


Alarm  and  Abort 


DOCUMENT  NO. 

FC-3140 


LUMINARY  ID 


2 


00611 


00701 

00777 

01102 

01105 

01106 
01107 

01301 

01406 

01407 

01410 

01412 


01520 

01600 

01601 

01703 

01706 

02001 

02002 

02003 

02004 
03777 


No  TIG  for  given  elev  angle 


Illegal  option  code  selected 
PIPA  fail  caused  the  ISS  warning 
AGC  self  test  error 
Downlink  too  fast 
Uplink  too  fast 

Phase  table  failure.  Assume  erasable 
memory  is  suspect. 


ARCSIN- ARCCOS  argument  too  large 
Bad  return  from  ROOTPSRS 


VG  increasing  (delta-V  accumulated  . GT. 
90  degrees  away  from  desired  thrust 
vector.  ) 


Unintentional  overflow  in  guidance 


Descent  IGNALG  not  converging 


V37  request  not  permitted  at  this  time 


Overflow  in  drift  test 
Bad  IMU  torque 
Ignition  time  slipped 


Incorrect  program  requested  for  vehicle 
configuration 


Jet  failures  have  disabled  Y-Z  trans. 
Jet  failures  have  disabled  X translation 
Jet  failures  have  disabled  P-rotation 
Jet  failures  have  disabled  U-V  rotation 
ICDU  fail  caused  the  ISS  warning 


P32-P35, 

P72-P75 

P34-P35 

P74-P75 

ALARM 

P51-P53 

'ALARM 

T4RUPT 

VARALARM 

Self  check 

'aLARM2 

T4RUPT 

ALARM 

T4RUPT 

ALARM 

Fresh  start 
and  restart 
(restart) 

ALARM 

Interpreter 

ALARM 1 

Lunar  land- 

ALARM 

ing  guidance 
equations 

P40-P47 

ALARM 

Lunar  land- 

ALARM 

ing  guidance 
equations 

Lunar  land- 

ALARM 

ing  guidance 
equations 

Fresh  start 
and  restart 
(V37) 

ALARM 

IMU  perfor- 
mance tests  4 

ALARM 

IMU  perfor- 
mance tests  4 

VARALARM 

Integration 

initialization 

ALARM 

Master 

ignition 

routine 

ALARM 

P-axis  RCS 
autopilot 

ALARM 

Q,  R-axis  RCS 
autopilot 

ALARM 

P-axis  RCS 
autopilot 

ALARM 

Q,  R-axis  RCS 
autopilot 

ALARM 

T4RUPT 

VARALARM 
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Alarm 

Code 

Alarm  Condition 

Set  By 

Alarm 
Entry  Used 

04777 

ICDU,  pipa  fails  caused  the  ISS  warning 

T4RUPT 

VARALARM 

07777 

IMU  fail  caused  the  ISS  warning 

T4RUPT 

VARALARM 

10777 

IMU,  PIPA  fails  caused  the  ISS  warning 

T4RUPT 

VARALARM 

13777 

IMU.  ICDU  fails  caused  the  ISS  warning 

T4RUPT 

VARALARM 

14777 

IMU  ICDU,  PIPA  fails  caused  ISS  warning 

T4RUPT 

VARALARM 

The  following  codes  indicate  the  more 
serious  POODOO  aborts  that  result  in  the 
program  going  to  ROO. 

20105 

AOTMARK  system  in  use 

AOTMARK 

POODOO 

20430 

Acceleration  overflow  in  integration 

Orbital 

integration 

POODOO 

20607 

No  soln  from  time-theta  or  time-radius 

Conic 

subroutines 

POODOO 

21103 

Unused  CCS  branch  executed 

TJET  LAW, 
T6RUPT 

CCSHOLE 

programs, 

executive, 

interpreter, 

pinball, 

IMU  perfor- 
mance tests  2 

21204 

WAITLIST.  VARDELAY  FIXDELAY,  or 
LONGCALL  called  with  zero  or  negative 
delta-time 

Waitlist 

POODOOl 

21302 

SORT  called  with  negative  argument 

Interpreter 

POODOO 1 

21406 

Bad  return  from  ROOTPSRS 

Lunar  land- 
ing guidance 
equations 

POODOOl 

21501 

Keyboard  and  display  alarm  during 
internal  use  (NVSUB).  abort 

Pinball 

POODOO 

The  following  codes  indicate  a bailout 
abort  that  results  in  a software  restart 

31104 

Delay  routine  busy 

Service 

routines 

BAILOUT  1 

31201 

Executive  overflow-no  VAC  areas 

Executive 

BAILOUT  1 

31202 

Executive  overflow-no  core  sets 

Executive 

BAILOUT  1 

31203 

Waitlist  overflow-too  many  tasks 

Waitlist 

BAILOUTl 

31206 

Second  job  attempts  to  go  to  sleep  via 
keyboard  and  display  program 

Pinball 

BAILOUT 

31207 

No  VAC  areas  for  marks 

AOTMARK 

BAILOUTl 

31210 

Two  programs  using  device  at  same  time 

IMU  mode 

switching 

routines 

BAILOUT  1 

31211 

Illegal  interrupt  of  extended  verb 

AOTMARK 

BAILOUTl 
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LUMINARY  IJJ 

REV  2 


SUBROUTINES  CALLED  WHICH  ARE 
FLOWED  ON  OTHER  FLOWCHARTS 


Subroutine 

Name 

Flow 

Chart 

Description 

Where 

Called 

V37KLEAN 

FC-3010 

Deactivate  restart  groups  1,  3,  5,  6 

Sh.  15 

MR.  KLEAN 

FC-3010 

Deactivate  all  (1-6)  restart  groups 

Sh.  15 

PRIODSPR 

FC-3130 

See  displays  below 

— 

Sh.  12 

GOPROG2 

FC-3010 

Software  restart  (see  Note  "A"  on 
sheet  18) 

Sh.  13  & 18 

DISPLAYS 


Verb-  1 

Noun  j 

Type  of 
Display 

Description 

Where 

Executed 

V05N09  1 

j 

PRIODSPR 

Displays  the  contents  (alarm  codes) 
of  registers  FAILREG,  FAILREG  + 1 
and  FAILREG  + 2 in  Rl,  R2 
and  R3 

Sh.  12 

RTB  OP  CODES 


LOADTIME 

Sh. 

2 

C DU  LOGIC 

Sh. 

3 

SGNAGREE 

Sh. 

3 

1ST02S 

Sh. 

4 

V1ST02S 

Sh. 

5 

2V1ST02S 

Sh. 

7 

1T02SUB 

Sh. 

8 

CDUINC 

Sh. 

9 

PULSEIMU 

Sh. 

11 

VECSGNAG 

Sh. 

11 

NORMUNXl 

Sh. 

12 

NORMUNIT 

Sh. 

12 

SIGNMPAC 

Sh. 

14 

TPMODE 

Sh. 

6 

DPMODE 

Sh. 

14 
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RTB  Op  Codes 

DOCUMENT  NO. 

LUMINARY  ID 
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REV  2 
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.CDULOGIC 


s - 0 _/Test 
^MPAC 


Converts  the  single  precision 
2's  complement  number 
arriving  in  MPAC  in  revs  3 
2"^  to  a d,  p.  I's  complement 
number  in  revs  @ 2° 


K 2's  complement  value  is 
positive,  same  as  I's 
conrylement 


5 


MPAC 



fl—  A 

A- — 
MPAC 

MPAC 
— +0 

Save  A in  MPAC  +1 


Save  2's  complement 
input  (in  revs  3 2"i  ) 


Change  scaling 

MPAC,  MPAC  +1- — (MPAC,  MPAC  +1)+  2‘'^-Al  and  convert  to 

I's  complement 


Return 

via 

\DANZ1G/ 


GNAGREI 


^TPAGREEN 
Force  sign ' 
agreement 
in  MPACrp 

FC-3070 


Forces  sign  agreement 
in  MPACrp 
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RTB  Op  Codes 

PRCMR\  y ^ i . 

ri7i8l 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3150 

ANALST  N 

VOM 

altlLJ 

mm 

REV  2 |SWn  3 Of  14 

Converts  the  d.  p. 
angle  in  revs  9 2 


precision  2's  complement  angle  in 
revs  @ 2 ■ ^ 


Input: 

MPACjj  = I's  complement  angle 
in  revs  @ 2° 


Output: 

A = MPAC=  2's  complement  angle 
in  revs  <9  2”^ 


Declare  MPAC  in  d.  p.  mode 


next  sheet 


Converts  (on  3 angles)  the  d.  p, 
I's  complement  angles  in  revs  <5» 
2°  to  single  precision  2's  , 

complement  angles  in  revs  s 2' 


Input: 

MPAC„  = 1st  I's  complement 
angle  in  revs  ® 2° 

Output: 

A = MPAC  = 2's  complement 
angle  in  revs  ® 2 


Put  3rd  angle  into  MPACj^ 

Save  1st  angle  result  in  (MPAC 


Input: 

MPACjj  = 3rd  I's  complement 
angle  in  revs  ® 2° 

Output: 

A = MPAC  = 2's  complement 

angle  in  revs  ® 2"^ 


Save  3rd  angle  result  in  MPAC  +2 
Put  2nd  angle  into  MPACj^ 


Input: 

MPACq  = 2nd  I's  complement 
angle  in  revs  @ 2° 


Output: 

A = MPAC  = 2's  complement 
angle  in  revs  g 2 


Save  2nd  angle  result  in  MPAC  +1 
Put  1st  angle  into  MPAC 
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RTB  Op  Codes 


LUMINARY  I D 

DOCUMENT  NO. 

FC-3150 

REV  2 

FULSEIMU) 


A—  XI 

via 

Enter  with  address  of  gyro 
torquing  angles  in  XI 


Load  the  address  oiX,  where 
X jj.  IK  +2)-^,  (.X  +4)j^  contain 
gyro  torquing  angles  in  revs  @ 2° 


via  BANK  CALL 


IMUPULSEN 
/Torque  gyrosN 
^by  angles 
specified  at 
^address  in  . 


FC-,3220 


$ 


VECSGNA 


Forces  sign  agreement  of  MPAC 


V 


via  BANK  CALL 


/ECAGREE 
Forces  sign'' 
^agreement  in 
^each  component 
of  MPAC  .. 
.FC-3070^  ' 
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LUMINARY  ID 
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[DRAWN 

Iprgmr  \ JH^ 

lAt«lST  ;l 

IDOCMR  -QxJL<^ 
:'0-^ 
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RTB  Op  Codes 


LUMINARY  iD 


DOCUMENT  NO. 

FC-3150 


ISHin  12  Of  14 


3^-<r1 


REV  2 


Return 
via 
V.DANZIG/ 


Output; 

MPACjj  containing 
DPOSMAX  or  -DPOSMAX 
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RTB  Op  Codes 
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mm 
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DOCUMENT  NO. 
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Single  Precision  Subroutines 


SPCOS  Sh.  2 

SPSIN  Sh.  2 
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Single  Precision  Subroutines 

Mfii 

LUMINARY 

mm 

wtm 

■•tv  1 ISHEn  1 OF  4 

Next  Sheet 
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PRGMR 
ANALST 
DOCMR 
APPR 


MR  -g.'S 

S'P-^ 


mslii. 


adius. 
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Single  Precision  Subroutines 


LUMINARY 
_LP 


REV  1 


DOCUMENT  NO. 

FC-3160 
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From  Preceding  Sheet 


3.  0 


PGNCS  INTERFACE  ROUTINES 


T4RUPT 


MAJOR  SUBROUTINES  AND  EXTERNAL  ENTRY  POINTS 


T4RUPT 

Sh. 

2 

CDRVE 

Sh. 

4 

RCSMONIT 

Sh. 

8 

RRAUTCHK 

Sh. 

10 

RRCDUCHK 

Sh. 

12 

RRGIMON 

Sh. 

14 

NORRGMON 

Sh. 

17 

RRTURNON 

Sh. 

18 

RRZEROSB 

Sh. 

19 

DORREPOS 

Sh. 

22 

IMUMON 

Sh. 

25 

TLIM 

Sh. 

28 

LAMPTEST 

Sh. 

28 

I TURNON 

Sh. 

29 

SETISSW 

/=  IMUFAIL  \ 

\=  ICDUFAIL  } 

Sh. 

31 

IMUCAGE 

Sh. 

33 

IMUOP 

Sh. 

35 

TNONTEST 

Sh. 

37 

ENDTNON 

Sh. 

40 

C33TEST 

Sh. 

45 

PIPFAIL 

Sh. 

49 

DNTMFAST 

Sh. 

51 

UPTMFAST 

Sh. 

52 

GLOCKMON 

Sh. 

53 

CAGESUB 

Sh. 

56 

CAGESUBl 

Sh. 

56 

CAGESUB2 

Sh. 

56 

GPMATRIX 

/=  DAPT4S  \ 

ENDRRMON  ' 

Sh. 

57 

QUnCDSP 

Sh. 

60 

DSPOUTSB 

Sh. 

63 
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DOCUMENT  NO. 
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DOCMR  ft.M- ScxtioT 
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BBSS 
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From  Preceding  Sheet 


Test 

DSRUPTS\ 


Normal 

(system 

monitor) 

120  ms  pass 


Determine  path  for  this  pass  through 
T4RUPT 
< 0 


Intermediate  display  - 
only  pass 


NORMT4 


'Display  command  was  ^ 
processed  during  last  pas 
tiirough  CDRVE  branch 


A^-DSRUPTSW  - 1 

r 

RUPTREGl  « A 

DSRUPTSW  <i_A 

QUIKDSP 
\ Sh.60  y 


For  normal  (monitor)  passes, 
DSRUPTSW  and  RUPTREGl 
indicate  present  point  in  an 
eight  - pass  cycle,  by  a value 
of  0 - 7. 

Value  is  updated  here  - upon 
entry  to  this  branch. 
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Display  to 
be  done 


Normal  (display  and  system 
monitor)  branch  of  T4RUPT 
entered  every  120  ms 


Check  first  for  an  alarm  light 
display  request 


:5r+  0 


DSPTAB+llD 
(bits  15  - 12) 


-+0 


Make 

DSPTAB  +11D 
positive  to  show 
display  request 
has  been  processed 
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_J 

’ 

DSPOUT 

No  alarm  light  display 
requested; 


Check  for  any 
other  display 
requests 


Channel  10; 
bits  15  -12 

, bits  11  - 1 ■ 


-148 

DSPTAB  + IID/ 
I — bits  11-1 
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Now  output  desired  display: 

Channel  10  bits  15  - 12  determine  which 
row  of  display  relays  are  to  be  set 
bits  11  - 1 

determine  relay  settings  for  that  row 


HANG  20 


r 

DSRUPTSW'^DSRUPTSW  - 224008 

Set  DSRUPTSW  (now  0-7)  negative  so 
next  pass  through  T4RUPT,  will  take 
QUKDSP  branch;  sufficiently  negative 
so  that  next  pass  through  CDRVE  branch 
will  be  in  120  ms  (see  QUIKDSP  (Sh.  60) 

Note;  DSRUPTSW  bit  now  clear 


Want  T4RUPT  in  20  ms,  so  set  T1ME4  counter 
2 csec  from  overflow 
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Check  for  any  other  display  requests 


No  display  done 
Entered  with  A = +0 
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Want  T4RUPT  in 
in  120  ms, 

so  set  TIME4 
counter  12D 
(=14„)  csec 

° from  overflow 


From  Prec] 
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Set  TIME4  counter  to 
overflow  at  desired  time 


ROCEEDE 


MIT  INSTRUMENTATION  LAB 
OyABRIDCE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

T4RUPT 

DOCUMENT  Na 

LUMINARY  ID  FC  - 3210 

1 

ANAIST  ^ 

DOCMR 

WBIS 

REV  1 ISHICT  6 0F80 

From  Preceding  Sheet 
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No;  valve 
just 
closed 


Now  L = 9 - , 

where  bit  ««  is  the  highest  (8  - 1) 

bit  where  change  has  occurred 


Were  RCS  jets  just  turned  on  ? 
(valve  opened) 


CH5MASK 
bit  oC'  < — 1 

j 

CH6MASK 
bit  ot  »<-l 

f 

PVALVEST 
bit  o<.  — 1 

(l/ACCFD^ 


1 /ACC  JOB 

NOVAC 
job  with^ 
'priority  27 

FC-  3480 


X resume/'’ 


Adjust  CH5MASK.  CH6MASK,  and 
PVALVEST  to  account  for  the  change 
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CH5MASK 
bit  oc'<?-  0 

1 

\ 

CH6MASK 
bit  0 

i 

PVALVEST 
bit  oC  <5—0 

oi. 
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5 
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3 
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8 
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4 
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3 
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PVALVEST  indicates  states 
of  RCS  jet  pairs; 

CH5MASK  and  CH6MASK  indicate 
states  of  individual  RCS  jets 


Accoxmts  for  change  in  RCS  jet  status 
(for  digital  autopilot) 


Return  control  to  interrupted  program 
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Channel  33  bit  2 
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RADMODES 
bit  2 ? 
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Invert 

PIADMODESI 
bit  2 


Yes: 


RR 
power 
off  or  not 
in  AUTO 
mode 


• RADMODES' 


RRCDUCHK  - s' 
^ _ / 


Rendezvous  radar  monitor  (R25) 
Entered  every  480  ms  from  T4RUPT 

Has  rendezvous  radar  power  status 
changed  since  last  pass  ? 


Update  flag  to 
show  the  change 


RR  not  to  continuously  designate 
RR  antenna  not  remoding 
Do  not  zero  RR  CDU's 
RR  antenna  not  being  repositioned 
RR  not  being  turned  on 


Determine  what  the  change  was: 


No:  RR  power  on 

and  in  AUTO  mode 
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RR  CDU  error  counters 
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fail  lamp 
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Zero  RR  CDU's 
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Zero  rendezvous  radar  CDU's 


RZEROSI 


Save 

Q 
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RRRET 
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Zero  rendezvous  radar  CDU's 


FIXDELAY'' 
Wait 
■ 02  sec 

fC-3040 


Leave  time  for  zeroing  of  CDU's 


’ 

OPTY  -e-O 
OPTX  ♦-O 

> 

\Clear  / 

\ channel/ 
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Initialize  counters  to  receive 

rendezvous  radar  data 

( in  revs  (2's  complement  ) @2  ^ ): 
OPTY  for  CDUT;  OPTX  for  CDUS 


Allow  RR  CDU's  to  input 
RR  data  to  counters 
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Wait  for  counters  to 

count  back  up  to  true  data 


CDU  zeroing  process  finished 
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' No 

Drive  RR  antenna  to  a safe  position 
Set  up  by  RRGIMON  ( Sh.  13)  if 
desired  gimbal  angles  not  within 
limits  of  present  mode 


Set  up  RR  CDU 
error  counters 


RR  CDU  error  counters 
enabled  ? 


f 

Zero  record  of 

last  commanded  values 


LASTYCMIX— 0 
LASTXCMD*— 0 


Enable  RR  CDU 

error  counters 
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Wait 
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TtADMODES^ 
\ bit  12  / 

\vSet 


Check  RR  ANTENNA  mode 
Yea:  mode  2 


1/ 2 rev 


Set  up  input  to 
RRTONLY 


Direct  entry 
if  change  of  mode 
requested  / 

\ 

REPOSRPT  ' 

Sh.  24/ 


/ RRTONLY 

Maneuver 

about 

RR  trunnion 
axis  only 
i FC-3600  y 


Input;  A ; desired  angle 
in  revs  @ 2 " 1 
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RUPTREG2 
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RUPTREG2 
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Entered  from  IMUMON  (Sh.  25)  when  a change  is 
detected  in  bit  15  of  channel  30  (IMU  temperatt 

status) 


Save  record  of  remaining  bit  changes 


Is  IMU  temperature  within  proper  limits? 
No  Yes 


Return  to  , find,  and  pr-ocess  next  bit  change 
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First  turn  on  cycle 


Initialize  rendezvous  radar  flags 


RR  off  or  not  in  AUTO  mode 
No  RR  CDU  failure 


RR  not  in  turn-on 
RR  data  scaled  low 
RR  data  good 
LR  range  data  good 
LR  antenna  in  position  1 
LR  velocity  data  good 
LR  data  scaled  low 
Antenna  not  designating 
Antenna  not  being  reposi- 
tioned 

RR  antenna  in  mode  1 
RR  CDU's  not  being  zeroed 
RR  ANTENNA  not  re- 
moding 

Antenna  not  continuously 
designating 


Return  to,  find  , and  process 
next  bit  change 
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Entered  from  IMUMON  (Sh.  25)  when  change 
is  detected  in  bit  12  or  13  of  channel  30 

Also  called  by  ENDTNON  (Sh.  41)  and  by 
PIPFAIL  (Sh.  45)  when  a change  is 
detected  in  bit  13  of  channel  33 
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■■12' 
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-IMODES30j3  & IMODES30^ 


-tMODES30^2  ^ IMODES3O3 


-IMODES30^g  & IMODES30j 


’■15-14.  11,  9-1 


-0,  0,  0,  0,  ....  0 


1 IFF  IMU  failure  detected  and 

failure  signal  allowed 
1 IFF  ICDU  failure  detected 

and  failure  signal  allowed 
1 IFF  PIPA  failure  detected 
and  ISS  warning 
failure  signal  allowed 


Set  up  alarm  code 


Have  any  of  these  failures  been  detected, 
with  ISS  warning  signal  allowed? 

No 


^Yes 

Af — A - 1 

> 
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ISSWON 
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Save 
Q in 

ITEMP6 


Next  Sheet 
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progress? 


Turn  off  ISS 
light  warning 
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Input:  A = appropriate 
alarm  code: 


From  Preceding  Sheet 
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y-ARALAtiJ 
Turn  on 
prog  alarm 
light;  set 
alarm  code 


140 


00777  PIPA  failure 

03777  ICDU  failure 
04777  ICDU  PIPA  failures 

07777  IMU  failure 
10777  IMU,  PIPA  failures 
13777  IMU,  ICDU  failures 
14777  IMU,  ICDU,  PIPA  failures 


Turn  on 

ISS  warning  light 


'k 

\ Return 

via  ITEMP6 
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L’iear  bit  13/ 
set  bit  14  / 
of  / 

\ channel 


Turn  engine  off 


CAGESUBl  \ 
Signal 
no  attitude, 
inhibit  relevant 
failure  signals; 
disable  DAP  j 
r Sh.  56  7 


via  IBNKCALL 


RNDREFDR 

Clear 

TRACKFLG 

DRIFTFLG 

REFSMFLG 

FC-3220 


Clear 

channel 

14 

bits  9, 

ii 


Tracking  not  allowed 

Gyro  compensation  not  to  be  done 

REFSMMAT  matrix  invalid 


1 

t 

CDUXCMD<—  - 0 
CDUYCMD<_  - 0 
CDUZCMD<_  - 0 
GYROCMD^-  0 

. V 

Zero 

IMU  CDU  command  values 


gyro  torquing  command  value 


Gyro  torquing  command  polarity  unspecified 
No  torque  output  (no  axis) 

Disable  power  supply  for  torquing  pulses 


NXTIFAIL 
\ Sh.  27  ^ 


Return  to,  find,  and  process  next  bit  change 
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Set 
IMODES33 
bit  6 


Disable  DAP 


via  IBNKCALL 


RNDREFDR 

Clear 

TRACKFLG, 
DRIFTFLG. 
REFSMFLG 
Fc-3220 
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Tracking  not  allowed 
Gyro  compensation  not  to  be  done 
REFSMMAT  matrix- invalid 
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IMUSE 

0.  . . . 0.  0,  , 


Save  old  value  of  flag 
IMUSE 


IMU  not  in  use 
P20  not  running 


Was  IMU  in  use? 


Input:  alarm  code  214 

/program  using  \ 
HMIJ  when  turned/ 


Return  to,  find,  and  process  next 
bit  change 
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ISS  Initialization  routine  entered  every  480  ms., 
from  T4RUPT  (via  IMUMON) 

(Entered  at  a lower  point  if  IMU  CAGE  switch 
turned  off) 


Has  first  turn  on  cycle  arrived? 
No 


Has  second  turn-on 
cycle  arrived? 

No:  not  vet- set  it  up  now 


es 

proceed 

with 

turn-on 


I^ROCTNO^ 


Clear 

I IMODES30 
bit  7.  8 


Reinitialize 

turn-on  cycle  flags 


Has  ISS  turn-on  been  requested? 
No:  already  operating 


IMU  on  and  operating 
properly? 


No 
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ALARM 

Turn  on 
light;  set 
alarm  code 
FC-3140 


Input:  alarm  code  213 

(ISS  turn-on  request 
when  IMU  not  operating 
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This  point  also  scheduled  by  OPONLY  (Sh.  38) 


ZEROICDU 

Zero  IMU 
gimbal  angle 
counters 

P(!'-3220' 


Clear 
channel 
12 

ibits  4,  5 1 


Disable  coarse  alignment  of  IMU 

Allow  IMU  gimbal  angle  counters  to  receive 

true  data 


VARDELAY 

Wait 
10.  24 
seconds 

FC-3040 


Wait  for  counters  to  count  up 
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ISSUP 


Clea^ 
IMODES30I 
bits  3, 
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Allow  ICDU  failure  signal 
Allow  IMU  failure  signal 
IMU  not  being  initialized 


Enable  DAP 


Next  Sheet 


MIT  INSTRUMENTATION  lAB 
CAMBRIDGE,  MASS. 

ANALST  ' 

DOCMR 

fflSBSl 

APOLLO  GUIDANCE  AND  NAVIGATION 

T4RUPT 

DOCUMENT  NO. 

LUMINARY  ID 

FC-3210 

REV  1 

ISHEET  430F  80 

From  Preceding  Sheet 


RUPTREGl, 


Save  record  of  which  bits  have  changed 
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CTIBT+l 


2^  Shift  left  one  bit 


Bit  15 
of  A 
set  ? 


Since  0 , must  eventually 
leave  this  loop 


NXTIBT 


Increment 
index  value 


RUPTREGl^— RUPTREGl  + 1 


y I 13D  - RUPTREGl 


Now  RUPTREGl  = 13D  -Y 
where  Y is  the 

( next)  highest  bit 

(of  13-11)  of  channel  33 
where  change  occurred 


RUPTREG2j 

RUPTREG2, 


Save  record  of  remaining 
bit  changes 


other  bits 


- IMODES33 

-0, 0 


Load  value  of  actual 
status  for  appropriate 
bit 
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Entered  from  C33TEST  (Sh.  45) 
when  a change  is  detected  in 
bit  13  of  channel  33  (PFPA  failure  status) 


with  Aj3=  IM0DES33^3 


nS-U,  12-1 
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Has  PIPA  failure  occurred? 
Yes 


let  n 

IMODES30 
_ bit  1C 


rciear^-^__^ 
I I MODES  30 
bit  10 


Update  other  PIPA 
failure  flag 
appropriately 


SETISSW 

Set 

ISS  warning 
light  if 
necessary 

; Sh.  31 
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PIPA  failure  ISS  warning  signal  inhibited? 
Yes  - then  SETISSW 

1 did  not  turn 

on  lamp 


No 


PIPA  failure  program  alarm 
signal  allowed  and  not  in  first 
or  second  turn-on  cycle  and 
IMU  operating  and  caging 
requested? 


ALARM 


Turn  on 
prog  alarm 
light;  set 
alarm  code 
FC-3140 


Input:  alarm  code  = 212, 

/ PIPA  failure  \ 

( but  PIPA's  not  j 
\ being  used  / 


NXTFL33 
s^h.48  ^ 


Return  to,  find,  and  process  remaining  changes. 
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SETGLOCK 


GLOCKMON^ 


Yes 


Middle  IMU  gimbal  angle  monitor 
(checks  for  possible  gimbal  lock) 
entered  every  480  ms  from 
T4RUPT  (via  IMUMON,  TNONTEST, 
and  C33TEST) 


Middle  IMU  gimbal  angle  = 0 ? 


( GLOCKCHK 


Yes 


want 

gimbal 

lock 

light 

off 


Middle  IMU  gimbal  angle^TO.  01°  ' 
(-TOdegs  = - 70°  in  revs  @ 2 


Middle  IMU  gimbal  angle  <85.  007 
(-ISOdegs  ^ -15°(in  revs) 
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Yes:  just  signal 
MGA>70°- 
don't  realign 
IMU  yet 


No:  approaching 
gimbal  lock 


Bit  4 
of 

channel 
12 
set  ? 

No 


via  IBNKCALL 


Coarse  align 
enabled  ? 

Yes 
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IMU  CDU  error  counters 


^NCXIIMRUN^ 


1 

J 



Ag^l 

Next  Sheet 


Want 

gimbal 

lock 

light 

on 
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LUMINARY  ID 

DOCUMENT  NO. 

FC-32in 

ANALST  '' 

DOCMR 

APPR'Dgmi 

From  Preceding  Sheet 
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T4RUPT 

DRAWN  y"  ^ 

mm 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3210 

ANALST  ^ 

DOCMR 

iB8B 

REV  1 ISHEH  55  0f  an  1 

^CAGESU:^  Entry  called  by  TNONTEST  (Sh.  37) 


Clear  and  disable  IMU  CDU  error  counters 
ISS  tum-on  delay  not  done 


Enable  coarse  alignment  of  IMU 
Zero  IMU  CDU's 


(CAGESUB^  Entry:  called  by  IMUCAGE  (Sh.33) 


! 

DSPTAB^  +1104^ — ^ 
DSPTAB  +llDjg-« — 1 

Request  "no  att"  light  turn-on 
Cause  request  to  be  processed 


Entry  called  by  OPONLY  (Sh.  38) 


Inhibit  PIPA  failure  ISS  warning  signal 

Inhibit  ICDU  failure  signal 

Inhibit  IMU  failure  signal 

Inhibit  PIPA  failure  program  alarm  signal 

IMU  being  initialized 


Next  Sheet 
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9BRI 

mm 

ANALST 

DOCMR 
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T4RUPT 

DOCUMENT  NO. 

LUMINARY  ID 

FC-3210 

REV  1 

|SH£ET56.0f  80 

From  Preceding  Sheet 


! Set 
IMODES33 
^bit  6 


Return 
via  Q 


7 


Disable  DAP 


Compute  current  values  for  SM-SC.  coordinate 
transformation  matrix  [ M ] 

(used  by  DM  DAP) 

Entered  every  240  ms  from  T4RUPT 

(every  480  ms  directly) 
and  in  between,  / 

via  REAUTCHK 

Read  middle  IMU  gimbal  angle  j 
(2's  complement)  in  revs  @ 2 


Input : A = angle  in  revs  @ 2 
Output:  A = sine  of  angle  @ 2*^ 


Save  sin  (MGA)  @ 2° 


Read  middle  IMU  gimbal  angle  _j 
(2's  complement)  in  revs  (ffi  2 


Next  Sheet 
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DRAWN  y- 

RHRU 

T4RUPT 

93^ 

LUMIN,*RY  ID 

DOCUMENT  NO. 

FC-3210 

Ianaist 

^iSBn 

From  Preceding  Sheet 


Next  Sheet 
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T4RUPT 
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RRRRi 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3210 

ANALST  ' 

mSBB 

From  Preceding  Sheet 


Output:  A = cosine  of  angle  @ 2 


0 


Save  cos  (OGA)  @ 2^ 


Save  cos  (MGA)  cos  (OGA)  @ 2 


0 


RESUME / Returns  control  to  interrupted  program 


Have  obtained  values  for  matrix: 


C^GP] = 


Mil 

0 

1 

M21 

M22 

0 

M31 

M32 

0 

"sin  (MGA) 

cos  (MGA)  cos  (OGA) 
-cos  (MGA)cos  (OGA) 


0 r 

sin  (OGA)  0 

cos  (OGA)  0 
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T4RUPT 

Idrawn  7^  

LUMINARY  1e| 

DOCUMENT  NO. 

FC-3210 

ANALST  ^ 

DOCMR 

:x\s]'lo 

Clear:  display  done  last  time 

Note:  This  path  taken 
first  pass 
through 
QUIKDSP- 
display 
done 

last  pass 
through 
CDRVE 
(see  Sh.  4) 


Display  - only  branch  of 
T4RUPT  entered  (between  normal 
120  ms  passes)  when 
DSRUPTSW  ^0 


Set:  relays  turned  off  last  time 


Next  Sheet 


Turn  off  display  relays 


Update  display  relay  status  indicator 


Cause  T4RUPT  in  20  ms  by  setting  TIME4 
counter  2 csec  from  overflow 


DSRUPTSW, 


-DSRUPTSW  + 400 


8 


Next  T4RUPT  will  go  through 
QUIKDS  P branch  if  still  have 
DSRUPTSW  ■«;  0;  otherwise  must 
be  time  for  monitor  pass  - 
relays  will  be  off  when  this  situation 
occurs 


.RESUME 


Returns  control  to  interrupted  program 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

T4RUPT 

DOCUMENT  NO. 

LUMINARY  ID  PC-3210 

OOCMR 

appr'dPcpo 

^ 1 ISHEUfinOEp^ 

Return  if 
display 
request 
processed 


UIKRUPT 


From  Preceding  Sheet 


Find  smd  process  one  display  request 


(DSPSCAN  -2^ 


^ 

A,*—  A-  0 


Store  updated  (decremented)  value 
for  number  of  display  requests  waiting 


Initialize  indicator  to  signal  first  pass 


DSPCNT  is  index  value  (0-1 OD) 
pointing  to  current  place  in  display 
request  table 


Prevent  +0  value 


I DSPSCAN  -1 


DSPCNT<— A 

^ 

Next  Sheet 


Store  current  index  value 
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' T4RUPT 

DRAWN 

fsm 

LUMINARY  iD 

DOCUMENT  NO. 

FC-3210 

ANALST  ^ 

DOCMR 

Process  display  request 
found  by  DSP  CAN 


c 


DSPLAY 


* 

dsptabIdspcnt< — idspyabIdspcntI 


Make  table  entry  nonnegative 
to  show  request  has  been 
processed 


iL 


DSRUPTEM 

bits  15- 12  — 

bitsll-1  < 

0 

iDSETABtfESPCNTj 
bits  11-1 

s 

Channel  1 0 

bitsl5-12<:— RELTAB^DSPCNT 
bits  15  - 12 

. bitsll-1  < DSRUPTEM 

\ bitsll-1  / 


Mask  out  bits  11-1,  which 
give  desired  display  relay 
settings  for  one  row 
(of  relays) 


Output  display  command 
via  channel  10; 

bits  15-12  specify 
relay  row 

bits  11-1  specify 
settings  for  relays 
in  that  row 


Return 
via  Q + 1 


Returns  to  2 locations  beyond 
subroutine  call 
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T4RUPT 

LUMINARY  1 D 

DOCUMENT  NO. 

FC-3210 

ANALST  * 

DOCMR 

^■1 

APPR'D?trA 

SBBS 

REV  1 ISHEET65  OF  80  1 

Subroutines  Called  Which  Are 
Flowed  on  Other  Flow  Charts 


Subroutines  Called  Which  Are 
Flowed  on  Other  Flow  Charts  (Cont. ) 


Flags 
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T4RUPT 

DRAWN  y- 

424-,^# 

LUMINARY  Id 

DOCUMENT  NO. 

FC-3210 

ANALST  ' 

DOCMR 

APPR'D^cm  

^isn° 

1 [SHEET  68  Of  80 

Where 


<i>  QS 
E O-Q 


O O O O CO  « CO 

CO^,  CO  CO_„CO„CO  co^ 

CO'C^CO'C^CO'^COCOtO  c/3  C/3^ 

a cq -'  m a-  w'^ 

Q .ti  Q a Q a Q a q a Q a q a 

0X1  0X1  0X1  O-^  0X2  0X2  0X2 

s s s § s s s 
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APOLLO  GUIDANCE  AND 

fMVIGATION 

’ T4RUP1 

IX 

DCUMENT  NO. 

LUMINARY  ID 

F 

— 

RUPTSW  Display  relays  turned  off  Display  done  at  last  pass-  Sh.  60  Sh.60  Sh. 3,  60 

bit  14  last  pass  through  T4RUPT  turn  off  relays  62 


Flags  (Cont. ) 


Channel  Bits 


Channel  Bits  (Cent. ) 


Channel  Bits  (Cont. ) 


Displays 


Erasable  Location  Used 


Erasable  Location  Used  (Cont 


Erasable  Locati 


Erasable  Location  Used  (Cont. ) 


Erasable  Location  Used  (Cont. ) 


IMU  MODE  SWITCHING  ROUTINES 


IMUZERO 

SH. 

2 

ENDIMU 

SH.  34 

IMUZER02 

SH. 

4 

IMUGOOD 

SH.  34 

IMUCOARS 

SH. 

6 

IMUBAD 

SH.  34 

SETCOARS 

SH. 

7 

GOODEND 

SH.  34 

RNDREFDR 

SH. 

8 

BADEND 

SH.  34 

COARS 

SH. 

9 

IMUSTALL 

SH.  35 

CA+ECE 

SH. 

14 

AOTSTALL 

IMUFINE 

SH. 

15 

(=  OPTSTALL) 

SH.  35 

IMUFINED 

SH. 

16 

RADSTALL 

SH.  35 

IFAILOK 

SH. 

17 

MODEEXIT 

SH.  36 

PFAILOK 

SH. 

18 

CAGE TEST 

SH.  37 

PIP  USE 

SH. 

19 

CAGETSTJ 

SH.  37 

PIPUSEl 

SH. 

19 

CAGETSTQ 

SH.  37 

PIPFREE 

SH. 

20 

NOATTOFF 

SH.  38 

IMUPULSE 

SH. 

21 

ZEROICDU 

SH.  39 

STRTGYRO 

SH. 

24 

R02BOTH 

SH. 

33 
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IMU  Mode  Switching  Routines 

DRAWN  

LUMINARY  ID 

DOCUMENT  NO. 

FC-3220 

REV  ^ ISHECT  1 Of  41 

(jMUZER^ 
I 

Inhibit 
Interrupts! 


From  V40  (see  FC-322  5) 


GIMBAL  LOCK  and  NO  ATT  lights  both  on  ? 
Yes 


ALARM 

Light  PROG 
Alarm  Light; 
Set  Alarm 
Code 
FC  - 3140 


; IMUZEROA) 

X 

CAGETSTJ'' 
Be  sure 
IMU  not 
being 
initialized 
“SHT 


INPUT:  Alarm  Code 
206 

j IMU  zeroing^ 
not  allowed 
with  GIMBAI 
LOCK  and 
\ NO  ATT 

Bad 

termination 
of  IMU  operation 


TT 


Returns  only  if  OK 


Set 
IMODES33 
Bits  6, 

5 

Set 

IMODES30 
Bits  4, 

3 


Disable  autopilot 

IMU  zeroing  (outside  T4RUPT  control) 


Inhibit  IMU  failure  signal 
Inhibit  ICDU  failure  signal 


Next  Sheet 
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DRAWN  

PRGMR 
ANALST . 


APOLLO  GUIDANCE  AND  NAVIGATION 


IMU  Mode  Switching  Routines 


loaMR  ^ 

APPR' 


DOCUMENT  NO. 

LUMINARY  1D|  FC-3220 
T- 


ISHECT  2 OF  41 


From  Preceding  Sheet 


Set 
Ch.  12 
bit  5 


Zero  IMU  CDU's 


Input:  Alarm  Code 
210 

/ IMU  not  \ 

' operating  ' 
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APOUO  GUIDANCE  AND  NAVIGATION 

DRAWN 

IMU  Mode  Switching  Routines 

PRGMR 

^UMINARY  ID 

DOCUMENT  NO. 

FC-3220 

ANALST 

~rn — ^ 

3331 

!95P^ 

»<EV  2 ISHEH  3 Of  41 1 

From  Preceding  Sheet 
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DRAWN 

IMU  Mode  Switching  Routines 

9p^h3& 

DOCUMENT  NO. 

FC-3220 

R£V  2 ISHEET  5 Of  41 1 

SETCOARS 


Bit  4 
3f  Ch.  15 
I set  ? i 


Is  coarse  alignment  of  IMU  already  enabled  ? 

etu 


Yes 


No 


Return  7 
via  Q / 


Clear 
bit  6 

\ch^  12/ 


Clear  and  disable  IMU  CDU  error  counters 


Clear 
bit  10 

y 

\Ch.  14 


Inhibit  gyro  activity 


GYROCMD  ■«-  -0  Set  gyro  command  to  zero 


Set 
bit  4 

\ch"l./ 


Enable  coarse  alignment  of  IMU 


DSPTAB  + IID 


bit  4 1 

bit  15  ■«-  1 


Request  NO  ATT  light  on 
Cause  request  to  be  processed 


Set 
IMODES33 
bit  6, 
IMODES30 
bit  4 


Next  Sheet 


Disable  autopilot 
Inhibit  IMU  failure  signal 
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DRAWN 

PRGMR  'AJPnuUe^ 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3220 

ANALST 

DOCMR 

APPR-t^. 

2 ISHEH?  OF  41  1 

From  Preceding  Sheet 


(RNDREFDR 


Cle^ 
fTRACKFLG, 
DRIFTFLG,! 
REFSMFLGI 


\ Return  / 
\via  Q / 


No  tracking  allowed 
No  gyro  compensation 
REF SM MAT  matrix  invalid 
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IMU  Mode  Switching  Routines 

DRAWN 

DOCUMENT  NO. 

LUMINARY  ID  FC-3220 

1 

1 

BSmKZil 

MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN 

PRGMR 

ANALST 

DOCMR 

APPR'D 

apoujo  guidance  and  navigation 


IMU  Mode  Switching  Routines 


DOCUMENT  NO. 

.UMINARY  ID  FC-3220 


EV  2 ISHEH  10  Of  41 


From  Preceding  Sheet 


Adjust  index 
value  for 
next  angle 


Transmit  pulses 
from 

CDUXCMD, 

CDUYCMD, 

CDUZCMD 


Wait  for 

pulses  to  be 
transmitted 


Return  to 
process  any 
left-over 
commands 


do  Z angle  first 


Next  Sheet 


From  Preceding  Sheet 


[CHKCORS 


Check  result  of  coarse  alignment 


ITEMPl  A 


Save  index  value  for  this  pass 


A *-  (CDUX  $ ITEMPl  MTHETAD  I ITEMPl) 


Any  error  ? 


A / 0? 


:OARSERf 


Error = 

actual  - desired 
IMU  angle 

/S'  o"  1 


+ COARSTOl 
\ SO?  / 


Error  S 2""  ? 


KCORSCHK2) 


/ ALARM 
[ Light  PROG 
ALARM  light; 
\set  alarm  code 
V FC-  3140  ; 

V 

IMUBAD 
■V  Sh.  34  ^ 


Input; 

Alarm 
Code  211 
^oarse  ^ 

I alignment 
terror  / 


All  angles  checked  ? 


A-^  ITEMPl  - 1 

Adjust 

index 

value 

for 

next 

angle 


ITEMPl  =-t-g^ 
\ / 


ENDIMU 
Sh.  34  . 
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DOCUMENT  NO. 

^UMINARY  ID  FC-3220 


netum  IMU  to  Fine  Align  mode 


(■ 


IMUFINE 


Inhibit 
! Interrupts 


/CAGETSTJN 

Be  sure 
IMU  not 
being 
initialized 


SH._ 


IFAILOK' 


WAITLIST  , 
task 
5.  12  sec 


SH.  17 


liVtUFliVED" 

WAITLIST/ 
task 
in  2 sec 


_SiL 


Returns  only  if  OK 


Allow  IMU  CDU'S  to  receive  angle  data 
Disable  coarse  alignment  of  IMU 


Enable  autopilot 
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Mawn 

DOCUMENT  Na 

FC-3220 

ANALST 

«£V  2 laCT  IS.OF  41| 
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IMU  Mode  Switching  Routines 

loRAWN 

LUMINARY  ID 

•OCUMENT  NO. 

FC-3220 

Ianalst 

'SSSSiKStB'Tf'Wf- 

Tsm. 
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From  Preceding  Sheet 
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ioRAWN 

Ianalst 

APatO  GUIDANCE  AND  NAVIGATION 


IMU  Mode  Switching  Routines 


^UMINARY  ID 


REV  2 


DOCUMENT  NO. 
FC-3220 
|SHEn26  Of  41 


MIT  INSTRUMENTATION  UB 
CAMBRIDGE.  MASS. 

DRAWN 1 

Ianalst 

7/T7.f^\ 
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IMU  Mode  Switching  Routines 


LUMINARY  ID 


DOCUMENT  NO. 

FC-3220 


|5HEn27  Of  41 


Entered  for  small  negative  command 


Icommandl  S minimum  (127  X 2 ^^REV)? 
lRUPTREG2f\  Yes 
■ GYROMIN  - 

V ^0  / 


I STRTGYR2  I Ignore  it  and 

Sh.  24  xX  return  to  do  next 


RUPTREGIq-  RUPTREGlj^  - GYROFRACj^ 

Entered  for  definite  negative  command 

ROFRAC  Increase  magnitude  by 

2J  .215x2’^^  REV 

/part  of  command  \ 
Uost  in  transmission/ 
Call  D.  P.  magnitude: 

a n 

o.  . . . za  3 


300„  Test  ^ 

2 < ITEMP4 


(Z-axis)  \ 


x'  (X-axis) 


k Y-axis) 


Set  Ch.  14/ 
L bits  9,  / 
\ 8,  7 / 


Set  Ch. 
yi4  bits  9, 
\ 8 , 


Set  Ch.  / Specify  negative 
114  bits  9J  polarity  and 
\ 7 / appropriate  axis  for 

' [ gyro  torquing 


[RUPTREGl  RUPTREGl  | Save  command  magnitude 

1 a n (positive) 


A^-  RUPTREG2 
RUPTREG2-,  _ , 


15-8  — 1,  . . . ,1 
7-1  — RUPTREG2 


o. . . za/J 
sign 

7-1  V. . . z0ij3 


Next  Sheet 
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DOCUMENT  NO. 

LUMINARY  ID  FC-3220 


REV  2 


From  Preceding  Sheet 

(gmerge) 


ITEMP2 


15-14  - 00 
13-8  RUPTREGl 


6-1 


7-1 


14-8 


RUPTREGL 


15-9  --0 0 

8-1  - RUPTREGl 


14-7 


a . . . g=0. . . 0 


> 1 


I n 

o u 

a h 


ITEMP2^^  ^ RUPTREGl^ 


LONGGYRO 


(ADR'^(  GYRO^q_^))-+0,  RUPTREG2 

(ADR'^(  GYROjq_^))q 

RUPTREG1-2,RUPTREG2 

This  part  of  com- 
mand too  small  to 
consider 

1 

L_ 

(^LASTSEC^ 


GYROCMD 

' *-ITEMP2 

Store  gyro 
torquing 
command  in 

n 

revs  @ 2 


LASTSEG  + 1 J 

1 


A-  2"^  • GYROCMD  +3 

i 

VTWOPULSE 
.WAITUST, 
task  in 
A csec 
Sh.  'ii 


T 


15-14  1-  01 
13-1  - ITEMP2 


13-1 


GYROCMD  - A 


C AU^G3  } 


A - 2 


-5 


GYROCMD  - 3 


8192AUG 
^ WAITLIST 
task  in 
A csec 
Sh.  32 


Next  Sheet 
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loRAWN  1 

□ 

DOCUMENT  NO. 

FC-3220 

Ianaist  J 

rzz] 

1 1 III  ■! 

UTPULS 


GYROCMD  ^ bit  2 


Send  pulse  train  from 

GYROCMD  to  torque  gyro 
for  axis  specified  by  bits  8-7 
of  same  channel. 
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PRGMR 

ANALST  

aocMR 
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IMU  Mode  Switching  Routines 


LUMINARY  IDi 


APPR'DL.g2^tSiT2a*/  2 


DOCUMENT  NO. 
FC-3220 
iSHEnao  Of  41 


/OUTPULSI 


^ut  bit  2 into 
GYROCMD 
land  go  to 
iGYROEXIT 
Sh.  30 


Negative -polarity  gyro 
torquing  output  from  GYROCMD 


VTASKOVE 
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DRAWN  f ynji. 

IMU  Mode  Switching  Routines 

mHPH 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3220 

ANALST 

D0CMR--t?mN 

I9RIS 

(shjjjii. 
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loRAWN  ^ 

m/fi 

DOCUMENT  NO. 

LUMINARY  ID  FC-,'i220 

I 

1 

REV  2 |SHEn34  Of  41 

Request  NO  ATT  lamp  off 
Cause  request  to  be 
processed 


SUBROUTINES  CALLED  WHICH  ARE  FLOWED 
ON  OTHER  FLOWCHARTS 


Subroutine 

Name 

Where 

Flowed 

Description 

Where 

Called 

ALARM 

FC-3140 

Light  program  alarm  light;  set  alarm  code 

Sh.  2,  3, 

13,  20 

BAILOUT 1 

FC-3140 

Light  program  alarm  light;  set  alarm  code 

Sh.  3 5 

FIXDELAY 

FC-3040 

Wait  specified  time 

Sh.  12 

JOBSLEEP 

FC-3030 

Put  job  to  sleep 

Sh.  23,35 

JOBWAKE 

FC-3030 

Wake  waiting  job 

Sh.  24,34 

MAKECADR 

FC-3060 

Form  CADR  of  return  address 

SETISSW 

FC-3210 

Set  ISS  warning  lamp  as  appropriate 

TPAGREE 

FC-3070 

Force  sign  agreement  in  MPAC^ 

Sh.  22 

VARALARM 

FC-3140 

Light  program  alarm  light;  set  alarm  code 

Sh.  33 

VARDELAY 

FC-3040 

Wait  specified  time 

Sh.  4,  9,  12 

FLAGS 


Name 

Meaning  When  Set 

Meaning  When  Clear 

Where 

Sst 

Where 

Cleared 

DRIFTFLG 
Flag  2 
bit  15 

T3RUPT  calls 
gyro  compensation 

T3RUPT  does  no 
gyro  compensation 

! 

Sh.  8 

IMUSE 

Flag  0 
bit  8 

IMU  in  use 

IMU  not  in  use 

Sh.  33 

REFSMFLG 
Flag  3 
bit  13 

REFSMMAT  good 

REFSMMAT  no  good 

Sh.  8 

TRACKFLG 
Flag  1 
bit  5 

Tracking  allowed 

Tracking  not  allowed 

Sh.  8 

IMU  COMPENSATION  PACKAGE 


1/PIPA 

Sh. 

2 

GCOMPSUB 

Sh. 

10 

DRIFTS  UB 

Sh. 

11 

1/GYRO 

Sh. 

12 

NBDONLY 

Sh. 

14 

LASTBIAS 

Sh. 

15 

IRIGX 

Sh. 

5 

IRIGY 

Sh. 

7 

IRIGZ 

Sh. 

8 
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(l/PlPA  ^ 


The  IMU  Comuensation  Packaee  is  designed  to  comoenaaie 
for  PIPA  bias  and  scale  factor  error  and  accumulate  gyro 
torquing  commands  necessary  to  compensate  for  the  gyro 
drifts  caused  by  the  associated  bias  and  acceleration. 


Inputs;  The  sampled  PIPA  readings  since  the  last  call  to 

1/PIPA,  stored  in  DELVX,  DELVY,  and  DELVZ  in 
double  precision,  l/PIPADT,  the  time  elapsed 
between  PIPA  readings.  GCOMP  is  three  double 
precision  registers.  FLAGWRD2,  (bit  15),  = 0 during 
l/PIPA  to  indicate  craft  is  not  in  zero  G portion  of 
flight. 

Outputs:  DELV.  (where  i = X,  Y,  or  Z)  are  the  compensated 
PIPA  readings,  all  double  precision  quantities. 
GCOMP  are  double  precision  compensation  for 
the  gyro's  scaled  in  pulses.  GCOMPSW  is  a 
command  pulse  counter. 


Save  EBANK 
of  calling 
program 


IRIGl 

L Sh,  10  J 

Return  it  switch 
is  negative. 


C . .j  N Iteration  using  BUE  +2  as  index  to  three  word  table,  PIPAX, 
1/1  iPAI^  PIPAY,  PIPAZ;  increment  index  by  -1. 


A<~ 

00004 

_L_ 

^/PIPAl 

BUF  +2 

5-^  1 

Initialize  index  cell 


Load  present  indexing 
factor  into  BUF  +2 


Next  Sheet 
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From  Preceding  Sheet 


DEPVXj3#BUF  +2 
X BIT6] 


-IPIBASCF  I BUFH2  x (DEBVXjp  # BUF  +2) 
PIPABIAS  # BUF  +2  x l/PIPADT]  x BIT3 


Calculate  vector  component  changes  from  a 
given  number  of  pulses,  the  bias,  and  the 
time  from  the  last  nulse  sample,  scaled  by 


00040g  and  00004 


8 • 


A-< 


-lO 


If  index  register  is  not 
negative,  decrement 
and  return  for  next  set 
of  double -words  witli 
calculations  of  incre- 
mental values. 

If  positive,  compute 
torquing  biases 
(beginning  at 
I RIG  COMP). 


(iRIGOOM^ 


N 

GCOMPSW  <-  A 
BUF  A 

Calculate  compensation  vectors 
to  cancel  associated  biases  to  be 
output  as  gyro  commands. 

Set  switches  and 
index  counter. 


IRIGX 


Compensate 
Acceleration 
terms 


Sh.  5 


Next  Sheet 
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From  Preceding  Sheet 


-NBDX 


RIFTSUB 
''Calculate  gyre 
drift  due  to 
acceleration  / 
Sh.  11 


IRIGY 


Compensate 
Acceleration 
terms 


Sh.  7 


A-^  -NBDY 

^DRIFTSUB^ 
/Calculate  gyro\ 
drift  due  to 
acceleration , 
Sh.ll 


IRIGZ 


Compensate 
Acceleration 
terms 


Sh.8 


A- 


-NBDZ 


Next  Sheet 
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IMU  Compensation  Package 


DOCUMENT  NO. 


DOCMR  'TRSmiTHTY-e. 


LUMINARY  ID  FC-3230 


ISHEH  4 OeH^ 


APPR'D-<\A,d-^iYr\SAJiS-/^/7ol 


REV 


From  Preceding  Sheet 


N.  Compensated  PIPAX  value  is  in 
IKTGX  ) DFLVX  scaling? 


Store  return  address 
from  Q 


ADIAX  is  the  positive 
angular  displacement 
of  the  gyro  case  about 
the  input  axis  (X  gyro 
component  due  to 
gravity  acting  on  its 
input  axis). 


MPAC  +2—0 

i 

MPACjj  <- 

A 

( -DEFVX^P 
ADIAX 

Next  Sheet 


From  Preceding  Sheet 


Input;  MPAC  contains  conapensated  PIPA 

VCCLUi’  COIlitJUllUiit  \vitllOLU  Uilit  uicto, 

A contains  scalar  value  of  the  drift 

cornponent  associated  with  the 
PIPA  component. 

Output: 

compensated  PIPA 
pulse  in  MPAC. 


ICOMPSUBy 

/Calculate  partN 
^of  gyro  torquing) 
commands 
Sh.  id” 


Vector  components 
needed  to  cancel 
the  associated  bias. 


MPACjj  <- 


(-DELVYjj) 
( -ADS  RAX) 


Input:  MPAC  contains  compensated  PIPA 
vector  component  without  drift  bias. 

A contains  scalar  value  of  tlie  drift 
component  associated  with  the  /G C OM PSUB 

PIPA  component.  / ^ ' 

Output;  Drift  compensated  PIPA 
pulse  in  MPAC. 


Calculate  part 
'of  gyro  torquing^ 
\ commands 


Sh.  10 


Input:  MPAC  contains  compcn.satcd  PIPA 
vector  component  without  drift  bias. 
A contains  scalar  value  of  the 
drift  component  associated  with 
the  PIPA  component. 


COM  PSUB. 


Output;  Drift  compensated  PIPA 
pulse  in  MPAC . 


alculate  part 
^f  gyro  torquingy 
commands 


\ Sh. 

10  / 

_ N 

/ 

A ^ (-NBDX) 

ADSRAX  is  the  x-component 
of  the  displacement  of  the 
acceleration  sensitive  drift  due 
to  a case  acceleration  drift 
of  one  g along  the  positive  spin 
reference  axis. 


Vector  compoiients 
needed  to  cancel 
the  associated  bias. 


MPACj^  < 

— (-DELVZ)jp 

A ^ 

— ADOAX 

ADOAX  is  the  X-component 
of  the  displacement  of  the 
gyro  output  axis  due  to 
gravity. 


Vector  components 
needed  to  cancel 
the  associated  bias. 


NBDX  is  the  X -component 
of  the  normal  excitation 
total  bias  drift 


uiT  us 
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IRIGY 


MPAC  + 2- 


Q 


MPAC 


(-DELVYj^) 

ADIAY 


Input: 


JCOMPSUi 


Vector  components  /Calculate- part' 
needed  to  cancel  gyro  torquing^ Output: 

the  associated  bias. \ commands 


Store  return  address  from  Q 

ADIAY  is  the  Y- component 
of  the  displacement  of  the 
acceleration  sensitive  drift  due 
to  a case  acceleration  drift 
of  one  g along  the  positive  input 
axis. 

MPAC  contains  compensated  PIPA  vector 
component  without  drift  bias.  A contains 
scalar  value  of  the  drift  component 
associated  with  the  PIPA  component. 

Drift  compensated  PIPA  pulse  in  MPAC. 


10 


MPACq  <- 


(-DELVZj^) 

(-ADS1IAY) 


ADSRAY  is  the  Y- component 
of  the  displacement  of  the 
acceleration  sensitive  drift  due 
to  a case  acceleration  drift 
of  one  g along  the  positive 
spin  reference  axis. 


,GCOMPSUfi, 

Vector  components  /Calculate  part' 
needed  to  cancel  fef  gyro  torquing/ 
the  associated  bias.\  commands 


Input:  MPAC  contains  compensated  PIP.A.  vector 

component  without  drift  bias.  A contains 
scalar  value  of  the  drift  component 
associated  with  the  PIPA  component. 

Output:  Drift  compensated  PIPA  pulse  in  MPAC 


^ 

MPACj^<—  (-DEDVX^) 

A <—  ADOAY 

Vector  components 
needed  to  cancel 
the  associated  bias. 


,GCOMPSU13\ 

Calculate  part^ 
of  gyro  torquing^ 
commands 


ADOAY  is  the  Y-component 
of  the  displacement  of  the  acceleration 
sensitive  drift  due  to  a case  acceleration 
drift  of  one  g along  the  positive  outer  axis. 


Input:  MPAC  contains  compensated  PIPA  vector 
component  without  drift  bias.  A contains 
scalar  value  of  the  drift  component 
associated  vvith  the  PIPA  component. 


Output:  Drift  compensated  PIPA  pulse  in  MPAC 


V 
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■ (-NBDY) 


/JjRIFTSUBX 

/Calculate  gyi’oX 
{ drift  due  to  / 
\ acceleration/ 

\ Sh. 11  / 


NBDY  is  Y -component  of  the  displacement 
of  the  normal  excitation  total  bias  drift. 


Q IRIGZ  J 


> 

( 

MPAC  + S 

!^Q 

Compute  Z -vector  (compensation  for 
associated  bias)  to  go  out  as  a gyro  command. 


Store  return  address  from  Q 


MPAC 


Vector  components 
needed  to  cancel 
the  associated  bias 


(-DEBVYj^) 

(-ADSRAZ) 


/GCOMPSUB.^ 

/Calculate  part' 
^of  gyro  torquingy 
commands 

Sh.  10~ 


Compensated  PIPAZ  values  are  in 
DELVZ. 

ADSRAZ  is  the  Z-component  of  the 
displacement  of  the  acceleration 
sensitive  drift  due  to  a case  acceleration 
drift  of  one  g along  the  positive  spin 
reference  axis. 

I Input:  MPAC  contains  compensated  PIPA  vector 
component  without  drift  bias.  A contains 
scalar  value  of  the  drift  component 
associated  with  tlie  PIPA  component. 


Output:  Drift  compensated  PIPA  pulse  in  MPAC 


± 

MPACjj  < — (-DELVZj^) 

A ( ADIAZ) 


ADIAZ  is  the  Z-component  of  the 
displacement  of  the  acceleration  sensitive 
drift  due  to  a case  acceleration  drift  of  one 
g along  the  positive  input  axis. 


Vector  components 
needed  to  cancel 
the  associated  bias 


GCOMPSlllA 

/Calculate  part' 
(of  gyro  torquingy 
commands 


Input:  MPAC  contains  compensated  PIPA  vector 

component  without  drift  liias.  A contains 
scalar  value  of  the  drift  component 
associated  with  the  PIPA  component. 

Output:  Drift  compensated  PIPA  jjulsc  in  MPAC 


Sh.lO 
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MPACjj 

(-DELVXq) 

A 

( -ADOAZ) 

ADOAZ  is  the  Z -component  of  the 
displacement  of  the  acceleration  sensitive 
drift  due  to  a case  acceleration  drift  of  one 
g along  the  positive  outer  axis. 


?COMPSUB\ 

Vector  coimponents  Alalculate  part 
needed  to  cancel  W gyro  torquing^ 
the  associated  bias.\  commands 

Sh.  10 


5 

j A -e— NBDZ 

f 

/DHIFTSlilF 

Calculate  gyro\ 
drift  due  to 
^acceleration 


Input:  MPAC  contains  compensated  PIPA  vector 
component  without  drift  bias.  A contains 
scalar  value  of  the  drift  component 
associated  with  the  PIPA  component. 

Output:  Drift  compensated  PIPA  pulse  in  MPAC. 


NBDZ  is  the  Z -component  of  the 
displacement  of  the  normal 
excitement  total  bias  drift. 


0,  No  Are  gyro  commands 

greater  than  2 pulses? 
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Scale  compensations  to  right  magnitude 
and  add  to  get  compensated  PIPAs  (without 
drift  biases). 


Store  return  address 
in  index  register. 
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GCOMP^jI  BUF-< GCOMPj^#BUF  -t  MPACj^  x A 


Check  magnitude  of 
compensation. 


DRIFTSUB2 


LASTBIAS) 


/ PIPUSE \ Routine  in  another  bank 

/ Initiate  and  \ called  via  BANKCAL.L. 
^terminate  prograny 
\ use  of  PIPAs  / 

\ FC-3220  7 


' Check  \ 
GCOMPSW 


Are  gyro  commands 
greater  than  or 
equal  to  two  pulses’’ 


vENDOFJOB/ 


1/PIPADT< 


-(PIPTIMEl  +1)  - 1/PIPADT 


Time  of 
PIPA.  = 0; 
two  seconds 
scaled  @ 2” 
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SUBROUTINES  CALLED  WHICH  ARE 
FLOWED  ON  OTHER  FLOWCHARTS 


Subroutine 

Name 

Where 

Flowed 

Description 

Where 

Called 

IMUPULSE 

FC-  3220 

Call  gyro  torquing  routine 

Sh.  10 

IMUSTALL 

FC-  3220 

Stall,  wait  for  pilses  to  be  put 
out 

Sh.  11 

SWRETURN 

FC-3060 

Return  and  enter  program  on 
switch  setting 

Sh.  8 

CMC/LGC  Clock  Synchronization 
(R33,  V55) 

ALINTIME  Sh.  2 

R33  Sh.  2 
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Load  A time  for  LGC  clock 
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R1:OOXXX.  hrs.  i 
R2:000XX.  min.  [ decimal 
R3;0XX.  XXsec.  ) 


via  BANKCALL 
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Routine 

Named 

Where 

Flowed 

Description 

Where 

Called 

GOXDSPF 

(=GOMARKF) 

FC-3080 

— 

Flash  mark  V/N. 

Sh.  3 

PRIOCHNG 

FC-3030 

Change  priority  of  job  in  execution. 

Sh.  2 

TESTXACT 

FC-3100 

Check  extended  verb  activity. 

Sh.  2 

TPAGREE 

FC-3070 

Force  sign  agreement  in  MPAC.^, 

Sh.  4 
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CMC/LGC  Clock  Synchroniza- 
tion (R33.  V55) 


DOCUMENT  NO. 

LUMINARY  ID  FC-3240 


PURPOSE 

1)  IS  TO  PROVIDE  THE  AGS  ABORT  ELECTROMICS  ASSEMBLY  ^AEA)  WITH  THE 

LM  and  CSM  state  vectors  (position  , VELOCITY  , TIME  ) IN  LM  STABLE 
MEMBER  COORDINATES  BY  MEANS  OE  THE  UGC  DIGITAL  DOWNLINK  . 

Z)EER0  THE  ICDU,  L&C  j AND  AEA  GIMBAL  ANGLE  COUNTERS  SIMULTANEOUSLY  IN 
ORDER  TO  ESTABLISH  A COMMON  BERO  REFERENCE  FOR  MEASUREMENT 
OF  gimbalCeuler)  angles  which  define  LM  attitude  with  Respect 
TO  THE  IMU  stable  MEMBER. 

3)  TO  establish  the  GROUND  ELAPSED  TIME  OF  AEA  CLOCK  EERO  IF  THE  AEA  CLOCK 
IS  BEROED  DURING  THIS  ROUTINE  . 

CALLED  FROM  DSKY  BY  V47E 

( V47TXACT 


A&SINIT 
S.FIHOVAC  uoe  / 
/priority  4-  \ 
SHB 


ENDOFJOB 


AGSKr-  A„ 


A^SAMPTlMEo 


/ IS  \ 
REFSMFLG 


AGSK -GROUND  ELAPSED  TIME  OF  THE  AGS  CLOCK  BERO 


NO  - REFSMMAT  IS  BAD 


REDSPTEM 


DSPTEMVoC  AGSKo 


/alarms 

YES  REFSMNATISOK  (alARM  CODeJ  VOS  NOS  - THIS  DISPLAY  Wii.l 

V czo  y suspend  the 


1 TIME  OF  KEY-  ^ ' 

STROKE  IS  NEW  (AGSDISPK 

^ K,  AEA  CIXICK  ^ ^ 

, NEWAGS) 


SUSPEND  THE 

R1-0O22O  CURRENT  DISPLAY 
AND  TURN  ON 

RZ-XXXYV  THE  KEY  RELEASE 
light 
R3 - VXXXX 


Aq^ 

DSFTEM/o 


I YES 

! GOMARKF  \ 

DISPLAY 

F rvTJS'-S.  NTE  R 

K IS  'XW  VSZ/' 
LOADED^^J^ 
INTO  DSPTEMX  by 
KEYING  V25E 


S REQUEST  RESPONSE  AND  DISPLAY  STORED  G.E  T.  OF 
AEA  CLOCK  EERO  (kI 
VOfcMlC, 

Rl  - K - HRS  K-G.E  T.  OF  AEA  CLOCK  ZERO  N 
RZ-K  - MIN  HRS.jM  N , SEC.  TO  NEAREST  .'jii.cC 

PROCEED-.  " SEC 

displayed  VALUE  OF  K IS  CORRECT 


AGSVCALC 


SET  \ 

NODOFLAG 

xdspflag 


DO  NOT  ALLOW  V31 

MARK  DISPLAY  NOT  TO  BE  INTERRUPTED 


EXPSPRET  \ maintain  static  DISPLAY  OF  K IN  Rl,RZ,R3 
DISPLAY  ] CALL  BLANKING  Of  DCKY  (_  V,  N Rl  , RZ  , R S'!  IN 
. .j  / 2.0  S’ECONDB 


/ LOADTIME  \ 
LOAD  MPAC  ' 
WITH 

TiMEl,TIME  Z. ; 
\ FC-3150  / 


1 

TDEC15> 

•-  MPACp 

PRESENT  time 


/ LEMPREC  N 
PERFORM 
ORBIT 

integration 

\ FC-3350  7 


TO  NEXT  SHE.ET 


EXTRAPOLATE  LEM  S'^ATE  VECTORS  TO  PRESENT 
TIME  - TDECl 

input:  TDECl  , RCVv  ; VCVv  >TET 
output:  RATTi  — position;  ■) 

VATTl  - VELOCITY  > STATE  VECTORS 
TAT  - TIME  ] 


Amio 

E AW  NAVI6ATI0N 


CAM 

»tT 

KUmraN  LM 

M,  MASS. 

PMK 

A 

£ MlUL  i1 

ANM.S7  ' / 

BOCt  7^.jr.r 

C2ui 

^<1 

AGS  JWITIAH2ATION 


LUMINARY  ID  | 

KV  2 


DOCUMINr  NO. 

FC-3250 

I SHEET  2 Of 


FROM  PRECeD\h46  SHEET 


SCAL&V£C 
CCMVERT  TO  SM 
S.COORDS  AMD  SCAUE 


TRAMSFORM  LEM  STATE  VECTORS  TO  IMU  COORDINATES 
IWPUT;  RATTl^VATTi 

output:  MPACv-^TVARG  overuavd  in  mpao 


SH.  A 


ASSBUFF^, 
TDECl  r, 


-MPACv 

-TATn 


LEM  state  vectors  (POSVTION , VEUOCVTt) \VAU  COORDWlATES 
TIME  TO  WH\CH  RATTl  AND  VATTl  ARE  COMPUTED 


EXTRAPOLATE  CSM STATE  VECTORS  TO  THE  PRESENT  T\W\E  - TDECl 
IMPUT  : TDEC^,  RCVvj  VCVv,TET 
PERFORM  ORBITX  OUTPUT:  RATTl-  POSITION  T 

VATT^-  VELOC.TV  J VECTORS 

TAT  — Time 


CSMPREC 


tMTESRATiON 


FC-  3350 


SCALEVEC ' 
CONVERT  TOSM 
.COORDS  AMD  SCAU 


TRANSFORM  CSM  STATE  VECTORS  TO  \MU  COORDINATES 
. INPUT  ; RATTl, VATTl 

\ output:  mpacv 


SH.  A 


AGSBUFF  + Sv  — — MPACv 
ASSBUFFTlEp  — TATp,  -AGSKp.. /TSCALEp, 


1 


CSM  STATE  VECTORS  (POSlTIOSi  iVELOCnT) 
IN  IMU  coordinates 
time  SINCE  CLOCK  ZERO  -TSCALE  CONVERTS 
CSEC  TO  SEC 


iDNLSTCODj— LAeLlsr]  SET  AGSBUEFTOBE  DOWNLINKED-SEE  DOWNLINK,  (a)  SH. A 

DELAY  FOR  20  SECONDS  WHILE  DOWNLINV<,  IS  TRANSMITTED 
FOR  ACTUAL  DOWNLINK-SEE  DOWNLINK  (s)  SH.A 

a&swor'd]  reinitialize  downlink 

IS  IMU  PRESENTLY  BEING  USED  BY  ANY  OTHER  PROGRAM? 

YES 


ZERO  THE  ICDU  COUNTERS  (iN  LGC)  AND  TRANSMIT  CDU 
ZERO  DISCRETES  TO  the  AEA  AND  THE  CDUS 


HOLD  DISCRETES  FOR  .32  SECONDS 
(during  CDU  zero  the  dap  IS  turned  off) 


Rl- K- HRS 
R2-K-  MIN 
R3-K- SEC 


ALLOWS  V37 


FLASH  VSONifc  TO  REQUEST  RESPONSE  ANDTO  INDICATE  COMPLETION 
OF  DOWNLINK  TRANSMISSIONS-ALLTERMINATIONS  GOTO  ENDEKT 


\ENDEK~ry 


«HT 

tmiMMniATiaM  lm 

CMMHM.  MASS. 

fW*  P./i^L  . . 

MMIST  ^ 

DOQHR  h 

'aer  t-i 

ATOao 

ma  wwicATioN 


R-4-7 

A.GS  INITIAUIZATIOIN 


L.L'MlNARV  ID 


DOCUMENT  NO. 

FC-S^SO 


RV  2 


SHcn  3 Of  G 


AL-F  V&C-l  COKivERT  TO  COOROS  AWO 
— X ^ provide  proper  ECAU\ViO 


MPAC  v-»  A^VSCALe')[(REF5Mtv\At)  (VATTI)]  + A&SR  Mni.+ A&SRt-iDa 


/ VEC.S&NiA'E'X  FORCES  S\e.si  ASRetKAEViT  OF  VECTOR  \N  MRAC- 
(s\<5M  Aa-ReE  > INI  pi.  IT  ; napac-v 
\ SM.A  7 pctput:  mpac„ 


i VATTly— -MPACy  I 

MPACy— E5<fc(RSCALe)[(REFSMKAAT)(RATTij  + AGSRNDl+-AG5RNDa  ^e^ERS 


/VECSMAG  \ 
(Sie>N  AGRE-E 

\ SH.4  7 


forces  5\&M  AGREENAEMT  WITHIVi 

EACH  COMPONENT  OF  vector  W\PAC, 

I N1  POT  V NAPAC 

OCT  pot;  mpac 


^ i ^ V-  + V ARE  OVERCATEO  \Ni  V\PAC 

VIPAC  VATTl+S  ^ V-  v- 

MPA,C  + fe— VATTI  + 4 ^^PAC-  Y-x,Vs,0,VV,Vy,V',,V2 


RETURNl 
\ V I A Q , 


(VECSeMAG) 


( VECAGREE) 


1 A.L^- 

— MPAC.  1 

1 

t 

/ALSIGMAG  \ 
(SIGN!  AGPGE  > 

\ FC-3140  / 

KAPAC  — ■ A,V_ 

A,l_ — ■ — MPAC  + 3 

, t \ 

/AEGIGNA^ 

(sign  agree  ) 

\ FC-3140  / 


1 

MPAC  — 

A,L 
M PACT 5 

/ALSIGNAG  \ 
(sign  agree) 
V FC-314C  7 


, 1 

1 MPAC + 5 

— A,L  1 

. RETURKl  . 
\viACi  / 


.return  via 

\ QANZIG  / 


I S'  TWC  WORDS  (naPAC,  MPAC  + E) 

DOUBLE  PRECISION  SIGN  AGREE  ROUTINE 
INPUT  : A,  l_ 


atie  TWO  WORDS  (MPAC  +3^  N',PAC  + 4) 


double  PRECISION  S\SN  AG 'REE  ROUTINE 
INPUT  : A,  l_ 

OUTPUT  ; A , E 


3EiP  TWO  W'CRDS  (fiVlPAC +•  S,,  iVIPAC+to"; 


DOUBLE  PRECISION  SIEN  AGREE  ROUTINE 
INPUT  ; A,  L 
OuTPOT.  ^ ^ ^ 


»PM,  HMSS. 


ATCLLO 

QUmmOE.  MO  NMtCATtON 


R4T 

AGS  IN\TAl_l2.ATlON 


SHEET  OF  e 


DOWNiUlMK 


AGSBUFF 

UM  ITS 

+ 0 

X POSIT \ON  UEM. 

FT. 

1 

X /ELOCiTT  Lem 

FT./SEC. 

■ 2 

V POSITION  LEM 

FT. 

3 

Y VELOCITY  lEM 

FT.  /sec 

4 

H POSITION  LEM 

FT. 

5 

E VELOCITY  LEM 

FT./SEC. 

6 

X POSITION  CSM 

FT. 

7 

X VELOCITY  CSM 

FT. /sec. 

8 

Y POSITION  CSM 

FT. 

9 

Y VELOCITY  CSM 

FT /SEC . 

lO 

H position  CSM 

ft. 

11 

B velocity  CSM 

ft/sec. 

12 

SECS  SINCE 

13 

time  of  STATE  VECTORSqp 

AGS  CLOCK 

XERO 


6.A.RTH 

l_UMAR  ORSITAE 


X 

1 

^2-15 

5^2-13 

y2-l-5- 

^2-25 

^2-13 

y2-« 

y2-2F 

X?-13 

^2-43 

p-  **5 
^2- -5 

^2-13 

yZ-lF 

^2-25 

^2-13 

^2-18 

ORDER  OF  COMPONJEKiTS  S EMT  OM  THE  DOWMU>5T — 
SCALING  IS  THE  SAME  AS  AGSBOFF 

I ID  WORD  CYT-n-i) 

Z ASSBUFF  -V  O 

3 AGS  BUFF  -v  E. 

4 AGSBUFF  + 4 

5 AGSBUFF  + 12 

6 AGSBUFF  + 1 

T AGSBOFF  + "3 

S AGSBUFF  + 5 

e AGSBUFF + 1.3 

1C  AGSBUFF  +G 

II  AGSBUFF  + 8 

la  AGSBUFF  +10 


13 

AGSBUFF 

+ 12 

14 

AGSBUFF  + T 

15 

AGSBUFF 

+ S 

IG 

AGSBUFF 

+ 11 

IT 

AGSBUFF 

+-1S 

SUBROUTINES  CALLEB  WllKTl  ARE 
FLOWED  ON  OTHER  FLOW  CHARTS 


SUBIiOUTINE 

NAME 

FLOW 

CHART 

DESC  RIPTION 

WHERE  1 

CALLED  1 

ALSIGNAG 

FC-3140 

FORCE  A AND  L SIGN  AGREEMENT 

SH. 

CSMPREC 

FC-3350 

KEPLER  INTEGliATION  OF  CSM  STATE  VECTOR 

SH. 

" i 

DELAY.JOB 

FC-3050 

DELAY  ACTIVE  JOB 

SH. 

3 

IMUSTALL 

FC-3220 

WAIT  FOR  IMU  SUBROUTINE  COMPLETION 

Sll. 

i 

3 ! 

IMUZERO 

FC-3220 

ZERO  ICDU  COUNTERS 

SH. 

3 

LEMPREC 

FC-3350 

ENCKE  INTEGRATION  OF  LM  STATE  S ECTORS 

SH. 

1 

LOADTIME 

FC-3150 

LOAD  PRESENT  TIME  INTO  MPAC^ 

Sil. 

1 

FLAGS 


NAME 

1 

MEANING  WHEN  SET 

MEANING  WHEN  CLEAR 

WHERE 

SET 

IMUSE 

FLAG  0 

BIT  8 

IMU  IN  USE 

IMU  NOT  IN  USE 

1 

SH.  3 

NODOFLAG 
FLAG  2 

BIT  1 

V3  7 NOT  PERMITTED 

V37  PERMITTED 

Sli.  2 

SH.  3 

i 

i 

FSMFLG 
FLAG  3 

BIT  13 

REFSMMAT  GOOD 

REFSMMAT  NO  GCXJD 

SH.  2 

XDSPFLAG 
FLAG  4 

BIT  1 

MARK  DISPLAY  NOT 

TO  BE  INTERRUPTED 

NO  SPECIAL  MA  RK 
INFORMATION 

SH.  2 

1 



DlSiT.AYS 


VEHB- 

NOIN 

TYPE  OF 
DISPLAY 

DESCRIPTION  OF  EACH  REGISTER 

WHERE 

EXECUTED 

VO  6N 1 6 

REQUEST 

R1  1 ( OOXXX.  - HRS 

SH.  J 1 

RESPONSE 

R2.}  K / OOOXX.  - MLN  G.  E.  T.  OF  AEA  CLOCK  ZERO 

R3  ) ( OXX.  XX  - SEC 

\ .50N16 

PLEASE 

INDICATES  COMPLETION  OF  IXJWM.INK  TRANSMISSIONS 

Sll.  .s 

PERB'ORM 



I 1 


4.  0 SYSTEM  TEST  ROUTINES 


H04,  R77  RADAR  TEST  ROUTINES 


MA30R  ROUTINES  ON  THIS  CHART 


EXTENDED  VERB  4,5 
R04 

SAMPLE  RADAR  ONCE  PER  SECOND 

SHE 

EXTENDED  VERB 

RT7 

T8 

START  LR 

SPURIOUS  RETURN  TEST 

SHE 

EXTENDED  VERB 
R77END 

79 

TERMINATE 

LR  SPURIOUS  RETURN  TEST 

SH5 

MIT  INSTRUMEMTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

R04.  R77 

RADAR  TEST  ROUTINES 

InPAWN  / 

ism 

OOCUM^^^  NO. 

LUMINARY  ID  FC-3280 

InnrMR  "TK 

Wmk 

1 

OOCUNCNT  MO. 

FC-3280 


S)«T  e Of  9 


FROM  PRECCDIMG  PAGE 


__1 ^ 

( K04C  + 4 j 


SCHEDUl-E 

SAMPUtNG 


RADAR 


FROM  PRECEDING  PAGE 


LANDING  RADAR 


X IS  \ 
RTSTDEX 
s.  >1?  / 


RENDEZVOUS  RADAR 


' VI6N66 
IRl-LR  range! 
\R2-LR  POS.Z. 


R4-RSTACK+6-XXXXX.FT.-LR  SLANT  RANGE 
RS-CHAN-33  - + OOOOX  - LR  POSITION  NO. 

(bits  6; 7)  POS.4 

1 ‘ 12-LR  POS.  2 


TERMINATE 


VGOMARKF  \ R 

7 V1GN67  \ R 

Ilr  velocity!  r 

\cOMPONENTg4 ^ 

.^rrTTERMINATCv 

JCccU 

R04END 

SHS  I 


Rl-RSTACK  -XXXVX.  ft/sec -LRVx"^  LR 
R2-  RSTACK  + E -XXXXX  . FT/SEC-lRVyU  VELOCITY 
R3-  RSTACK  +4-XXXXX  . FT/SEC-LRV^  COMPONENTS 


/eOMARKF  \ -s 

/ VI6N72 \ Rl-CDUT-XXX.XX  DES.-TRUNION  ANGLE  1 RENDEZVOUS 

(ri-TRUNION  ) Ra-CDUS-XXX. XX  DEG.- SHAFT  ANGL^  RADAR 
\R 2- shaft/ 

PROCEED  i TERMINATE 


-"'’^‘-YGOMARKF  \ 

/vi6N78  ^ Rl- RSTACK-  XXX  .XX  NAUT.  M I .- RANGE]  RENDEZV 

1r1-RANGE  ) R2-RSTACK  + 2-XXXXX.  FT./SEC-RANGEj  RADAR 

\R2-RANGE  RAT^ ^ RATE 

PROCEED  ItERMIN^ ^ 

R04END 


i 


RSAMPDT-.— O 


/ESECDELVN 
DELAY  JOB 
2 SEC 

\ FC-3050/ 


RSAMPDT 


LANDING  RADAR 


/ IS  ^ 

rtstbase 


RENDEZVOUS  RADAR 


A - A 

A -a  O 

M ^ A 

R04X-1 


SH  3 


R04y  R77 

RADAR  TEST  ROUTINES 


SHOT  4 OF  3 


R04END 


terminate  sampling 


CLEAR  KTTFLAG^ 


R77  NOT  OPERATING 


RADSAMP 


IS 

RSAMPDTrO^ 

\ 7 ^ 


RADSAUP 
WAITLIST  TASI^  / 
> IM  1 SEC.  \ 


_ P0R5AMP 
MOVAC  JOB 
' PRIORITY  25 


TERMINATE  RADAR  5AMPLIMG 

YES  1 


TA5K0VER 


REPEAT  RADSAMP 
EVERY  1 SEC. 


R.TSTLOO 

RTSTDEX— RTSTBASET  ^ 

, 

1 

J 

subroutine  to  CALL 
SELECTED  RADAR  ROUTINE 
FOR  ONE  MEASUREMENT 

SET  FOR  ONE 
MEASUREMENT 


-c(rdrlocs+  rtstdex) 


' I, SEE  TABLE)  N 
PERFORM 
SELECTED  radar 

routine 

^c-3wo  ; 


/ RADSTALL  \ 
/ WAIT  FOR  \ 
( completion  OF 
\ RADAR  ROUTINE  / 
\fC-3EEO  / 
GOOD  RETURN  1 


LOAD  CAOR  OF  SELECTED 
ROUTINE  BASED  ON  ' 

RTSTDEX  VALUE  j 

_Kr5TDEX  L routine 

0 RR RANGE 

1 RRDOT  I 

Z I LRVELY 

3 LRVELY  I 

4 LRVELE  I 

5 I LRALT  I 


ACxANCL  FAIL  COUNTER 
BUT  ACCEPT  BAD  DATA 

BAD  RETURN 


.1 

— 1+  rfailcnt 


DORSAMPZ 


IS  R77  ON  P 


DO  NOT  UPDATE  RSTACK 


^ IS  \ 
'R77FLAG 
V SET  ■?  / 


RSTACK-  # RTSTLOC-« — SAMPLSUM 


“I  STORE  RADAR  DATA 
D IN  TWO  WORD  BUFFER 


does 

Y^^POSFLS  AGR^ 
”yES%WITH  CH.33/Y' 
^%BIT6 


RTTIN 

NO  j 

L sht  j 

i 

NEXT  SHEET 


nelWJMHtlWMR  lAI 
CMWIDSE,  MMS. 


WtAAffl  A.C.X 

eacair  M i 

AIMIST 

Boomi 

nnri~n 


APOUD 

WIOANCE  AND  NAVIOATIOH 


R04,  RTT 

RADAR  TEST  ROUTINES 


LUMINARY  ID 


DOCUHENTNO. 

FC-3^80 

SHEET  S Of  a 


VO^  N IZ 

Rl-A-OPTION  CODE 

R2- OPTION  2 -RADAR  SELF  TEST  R2 

RENDEZVOUS  RADAR 
\a-LANDING  RADAR 

SH  2 

VI6N66 

Rl-RSTACK+6 -XXXXX.FT.-LR.  SLANT  RANGE  n 

R2-CHAN  33  -OOOOX  -LR.  POSITION  NO.R2=-{„ 

(BITS  6,7)  \2-LR.POS.2 

SH4 

VI6N67 

Rl-RSTACK  -XXXXX.  FT/SEC -LRVX"' 
R2-RSTACK  + 2-XXXXX.FT/SEC-LRVY 
R3-RSTACK  +4-XXXXX.  Fl/SEC-LRV^ 

LANDING  RADAR 
^ VELOCITY  COMPONENTS 

SH4 

V16N7S 

Rl-CDUT  -XXX. XX  DEG.-TRUNION  ANGLE'! 

R2-CDUS  -XXX. XX  DEG. -SHAFT  ANGLE  J"  RADAR 

SH4 

VI6N78 

Rl-RSTACK  -XXX. XX  NAUT.  MILES-RANGE  ^ 

R2-RSTACK+2-XXXXX.  ft/sec  - RANGE 

SH4 

viro/vzs- 

R1  - 201  - PLEASE  PERFORM. ’TWITCH  RR  TO  AUTO  MODE 

SH3 

NAME  I MEANING  WHEN  SET  MEANING  WHEN  CLEAR 

LRBYPASS  I BYPASS  ALL  LANDING  DO  NOT  BYPASS  LANDING 

FLAGll  RADAR  UPDATES  RADAR  UPDATES 

BIT  15  ! 


WHERE  WHERE  WHERE 

SET  CLEARED  TESTED 


R04FLAG  R04  IS  ON 

FLAGS 

BIT  9 


R04  IS  NOT  ON 


SH.  2 I SH.  5 


R77FLAG  | R77  IS  ON 
FLAG5  I 

BIT  11 


R77  IS  NOT  ON 


SH.  2 1 SH.  5 


' SH.  6,  8 


TRACKFLG  TRACKING  Al.I.OWED 

FLAGl 

BIT  5 


TRACKING  NOT  ALLOWED 


V37FLAG  I AVERAGE  G 

FLAG7  i (SERVICER)  RUNNING 

BIT  6 


AVERAGE  G (SERVICER) 
OFF 


AKUO 

I MB  NMnCMIM 


R04,R77 

RADAR  TEST  ROUTmeS 


LUMINARY  ID 


BOCMCNriB. 

fC-3e80 

uKT  a OF  9 


5.0  GEOMETRY  TRANSFORMATIONS 


INFLIGHT  ALIGNMENT  ROUTINES 


CALCGTA 

Sh. 

ARC  TRIG 

Sh. 

CALCGA 

Sh. 

AXISGEN 

Sh. 

MIT  IMSTSUViE.'ITATION  LAB 

CAMBRIDGE.  MASS. 

APOUO  GUIDANCE  AND  NAVIGATION 

D’A'.VN  .9 

PSGMR 

J^/V/70 

LUMINARY  Ip 

DOCUVE'iT  NO. 
FC-3310 

DOC.'.'.R  'A'  P,  Sv«.-r-U  ^1? 

REV  ISKECr  1 Cr-  1 1 1 

This  routine  computes  the  gyro  torquing  angles  required  to  bring  the  stable  member 
into  the  desired  orientation.  Inputs  are  the  half-unit  vectors  stored  at  XDC,  YDC, 
ZDC.  Outputs  are  the  three  gyro  torquing  angles  applied  to  the  X,  Y,  Z gyros  and 
is  stored  at  OGC,  IGC,  MGC,-  respectively. 


Scale  the  vector  functions  to  2 so  that  functions 
'(angular)  entered  to  routine  calculating  the  angle 
will  have  functions  factored  by  1/4.  COS  (IGC)  = 
ZP3  and  SIN  (IGC)  = ZPl 


Input:  Sine  and  cosine  of  the  angle 
stored  at  SINTH  and  COSTH. 

Output:  Y gyro  torquing  angle  in  MPAC 
and  THETA,  between  +0.5  and 
-0.  5 revolutions. 


Store  gyro  torquing  angle 


With  XDC  +2  scaled  to  2^ 
this  sets  SIN  (MGC)  ^ XD2. 


V 

Next  Sheet 


SINTHjj  <- 

XDC  +2q 

MPACq 

ZPRIMEjj 

SINTH^ 


COST  Hr 


(ZPRIMEj^)/2 
- (ZPRIME  + 4)j^/2 


ARC  TRIG 

Calculate 
the  angle 

Sh.  4 


IGCr 


-MPAC 


D 


MIT  IMSTSLIMEttTATIC.'J  UiB 
CAMBRIDGE,  M.ASS. 

APOLLO  GUIDANCE  A.ND  NAVIGATICq 

Inriif^ht  Alignriicnt 

1 

PRG.MR  1 

LUMINARY  ip 

DOCUMENT  NO. 
FC-3310 

AfPvLST  1 

DOCMR  ITfi  SYY"-nj  ,Tg 

APPR'D'f^A^J^.tYG?-^  L<f/i^9D|SfV  

From  Preceding  Sheet 


MIT  INSTRUMEMATIOfJ  LAB 

CAMBRIDGE.  MASS. 

APOLLO  CUIDA.'iCE  AND  NAVIGATIO.'! 

DRAV.N  > 

PRC.'.'.R 

LUMINARY  ID 

DOCUViNT  NO. 

FC-3310 

AMMST 

OOCMR  6 SfniTH  CS'a 

REV  ISHEET  3 Of  U 

This  routine  (AitCTHIG)  computes  an  angle  from  its  sine  and  cosine  functions.  Tlie 
input  values  are  (sin)/4  and  (cos)/4  stored  in  double  precision  at  SINTH  and  COSTH  , 
respectively.  The  output  is  the  calculated  angle  between  -tO.5  and  -0.5  revolutions. 
It  IS  stored  in  MPAC  and  THKTA. 


MIT  INSTRU.VTfiTATiCfJ  UB 

CAMBRIDGE,  M.ASS. 

APOLLO  GUID.MiCE  AMD  MAVIGATICM 

Aiij^nmont  r'^onf : ‘i 

|or?A’.V.N 

PRG.’.iR 

LUMINARY  ID 

oocu.v.r.T  ^■o.  ! 
FC-3310  1 

A.'LttST  ' 

nOCM.R  CYP.Sm,T>.J« 

S/M/tO 

.L-ri/y/?p 

R£V  jSHttT  4 Of  ] 1 j 

'!'hi.s  I'ciitino  'irio;-  tho  coupled  data  unit  (CIJU)  driving  angles  required  to  bring 

Ih--  f-til-!  ';  n'.ei  ib:  I'-'ii'i'tO-l-bc  desired  orientation.  The  inputs  arc: 

1.  The  navigalioji  ba.se  coordinates  rererred  tc  any  coordin-t''  system. 

The  Uiro:e  lut-j'  unit  vectors  are  stored  at  XNB,  YNB,  and  ZNB. 

2.  The  desired  stable  member  coordinates  referred  to  the  same 
coordinate  system  are  stored  at  XSM,  YSM,  and  ZSM. 

The  outputs  are  the  three  CDU  driving  angles  stored  in  single  precision  at  THETAD, 
THETAD  +1,  and  THETAD  +2. 


(cAecga 


Next'^Sheet 
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■■ 
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From  Preceding  Sheet 


COSTHr 


ZSM  • PLO 

V V 


SINTH„  <-XSM  ■ PLO 

D V V 


COSaO)  ^ ZSM-MGA 
Push  MGA  into  MPAC 

V 

SIN(IG)  = XSM-MGA 


AKCTKIG 

Calculate  the 
angle 


Sh.  4 


IGC„  MPAC 

D V 

/yiST02S  \ 
/Convert  1 ' s \ 
complement  to  ) 
'2's  complement 
\fC-2100  / 


Compute  the  inner 
gimbal  axis  angle 


Store  angle  value 


Change  vector  from  I's 
complement  to  2's  complement. 
Changes  OGC,  MGC,  and  IGC 
from  vectors  to  triple  precision 
scalars. 


V 

Next  Sheet 
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n 

APOLLO  GUIDANCE  AND  NAVIGATION 

f ' 1 1.  o , . .1  : . 

nRAW.N  r X,  - . 

PRGMR  < 

AWLST 

LUMINARY  H)' 

DCGL''‘.Ei'iT  NO. 

FC-3310 

OOCMR  3 ^ SfYiiTH  C5rt. 

APPR'OiP,j»^.^<IYACA^ 

.<1  It*  ho 

REV  |5HEa  6 Cf  ] 1 

From  Preceding  Sheet 


Store  three  single  precision 
values  into  THETAD,  THETAD  +1, 
THETAD  +2. 


(gjmloci^ 


A gimbal  lock 
has  occurred. 


Turn  on  program  alarm 
light  and  store  alarm 
code  into  register. 


Flagword  3 Via  subroutine 

bit  14  UPFLAG 


Return  to  subroutine 
re-entry  point. 


MIT  liiSTRU.V.EhTATION  LAB 
CAMBRIDGE.  MASS. 

APCLIO  GUIOAVCE  AND  NAVIGATI&j 

0?AVn  . A . 

PRGMR 

LUMINARY  ip 

OCCU.VEfiT  >10. 

FC-3310 

AMtLST 

REV  1 SHEET  V Of  n 

r, 


AXISGEN 


This  routine  computes  the  unit  vectors 
referred  to  orthonormal  coordinate 
systems,  A and  B.  The  inputs  are  as 
follows : 


S is  the  first  vector  referred  to 
coordinate  system  A. 

S ^2  is  the  second  vector  referred  to 
coordinate  system  A. 

S is  the  first  vector  referred  to 
coordinate  system  B. 

S g2  is  the  second  vector  referred  to 
coordinate  system  B. 

These  inputs  are  stored  in  STARAD  through 

STARAD  +6  for  system  A,  and  locations  6 

through  12  of  the  VAC  area  for  system  B. 

The  output  defines  the  relationship 

between  coordinate  systems  A and  B. 

The  three  half -unit  vectors  are  stored 
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ANALST 

VO. 

LUMINARY  Ip  FC-3310 

nnr.MR 

fttV  JSHtET  l>  OF  1 1 

From  Preceding  Sheet 


Next  Sheet 


MiT  IMSTRUMENTATION  U8 
CAMBRIDGE,  MASS. 

APCLLO  GUIDANCE  AND  NAVIGATICt! 

laflicrlit  AU<?nmcnt  Rout’-'^.os 
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DR.'WN  y" 

PRGMft 

//•/■=>•  ':J_ 

LUMINARY  lt> 

DOCUME.'JT  NO. 

FC-3310 

A.'JALSr 

DOCMR  TB_SroAXH_3fi 

IB/BIp. 

REV  [SHEET  9 Or  1 l ; 

From  Preceding  Sheet 


MIT  INSlRiJ.''.'frrATICN  UB 
CA.SABRIDGT,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

(*'.  fl  j rrji  fr  A 1 i rrr*r  r*n  r«  n f 1 Li 

DRAWN  -LL^.C'-- 

PRGMR 

r 

LUMINARY  IXJ 

DOCU.V.O'iT  NO. 

FC-3310 

A^iALST 

OOCMR  CV  P>  S-rtM  TH  rVf? 

BWWI 

R£v  isnsn  locr-  n 

FLAGS 


Name 

Meaning  When 

Set 

Meaning  When 
Clear 

Where 

Set 

Where 

Cleared 

Where 

Terted 

CPHIFLAG 

Output  of  CALCGA 
is  CPHIX 

Output  of  CALCGA 
is  THETAD 

Sh.  7 

Sh.  7 

GLOKFAl  L 

Gimbal  Lock  has 
occurred 

Not  in  gimbal  lock 

Sh.  7 

SUBROUTINES  CALLED  WHICH  ARE 
FLOWED  ON  OTHER  FLOWCHARTS 


Subroutine 

Where 

Where 

Name 

Flov/ed 

Description 

Called 

V1ST02S 

FC-210C 

Convert  I's  complement  to 

Sh.  6 

2's  complement 

FC-3140 

Store  alarm  code 

Sh.  7 

POWERED  FLIGHT  SUBROUTINES 


CDUTRIG 

Sh.  2 

CD*TR*GS 

Sh.  2 

CD#TR*G 

Sh.  2 

CDUTRIGS 

Sh.  2 

QTPROLOG 

Sh.  5 

QUICTRIG 

Sh.  8 

NBSM 

Sh.  8 

TRG*SMNB 

Sh.9 

CDU*SMNB 

Sh.9 

TRG*NBSM 

Sh.  10 

CDU*NBSM 

Sh.lO 

*SMNB* 

Sh.ll 

*NBSM* 

Sh.ll 

AX*SR*T 

Sh.l2 

CALCSMC 

Sh.16 

MIT  INSTRU,V.£MTATIC:i  ! A8 
CA/.'.BRIDGE,  fWSS. 

APOLLO  GUIDANCE  AND  NAVI  CAT  ION 

Powered  Flight  Subroutines  -• 

DRAWN  -TW-'  - - 

y 

j,/ 11121 

ANMST  -A-J 

LUMINARY  in 

l‘C-3320 

mm 

r;£V  IsiiTT  1 c.-  22 

Enter  here 

(CDUTRIG)  if  ^ 

routine  is  (CDUTRIG 

called  in  .■  - 

interpretive  language! 
and  sines  and  cosine sj 
are  to  be  computed  i 
from  current 
contents  of  CDU 
registers. 


Enter  here 

. ^ (CD*TR-G)  if 

CD*TR*Gj  routine  is 

. y called  in 

interpretive 
language  and  sines 
and  cosines  are  to 
be  computed  from 
CDU  values  in 
CDUSPOT. 


Enter  here  L 

(CDUTRIGS)  ^ ^ 

if  routine  is  (CDUTRIGSj 

called  in  basic  1 — 

language  and  sines 
and  cosines  are  to 
be  computed  from 
current  contents  of 
CDU  registers. 


Dil 

CDUSPOT  CDUY 

CDUSPOT  +2  < CDUZ 

CDUSPOT  +4  . CDUX 


Output  from  CD’^'TR’^'GS: 

SINCDUX  , = sin{CDUSPOT  +4) 
COSCDUIX  = cos  (CDUSPOT  +4) 
SINCDUY  = sin(CDUSPOT) 
COSCDUY  = cos(CDUSPOT) 
SINCDUZ  = sin(CDUSPOT  +2) 
COSCDUZ  = cos  (CDUSPOT  +2) 

(CDUSPOT  = 4)  = f(CDUSPOT  +4) 
(CDUSPOT)  = f(CDUSPOT) 
(CDUSPOT  = 2)  = f (CDUSPOT  +2) 

Where  f represents  conversion 
to  I's  complement  and  rescaling 
to  2r 

NOTE : 


Y 

TEM2 

Next  Sheet 


Enter  here  (CD*TR*GS)  if 
routine  is  called  in  basic 
language  and  sines  and  cosines 
are  to  be  computed  from  CDU 
values  in  CDUSPOT. 


Save  return  address 


SINCDUX  is  SINCDU  +4 
SINCDUY  is  SINCDU 
SINCDUZ  is  SINCDU  +2 
COSCDUXis  COSCDU  +4 
COSCDUY  is  CO-SCDU 
COSCDUZ  is  CO.SCDU  +2 
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eWABRIDGE.  RWSS. 
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Powered  Flight  Subroutines 

DRAWN . '''  • • 

prg;ar 

/ / 

LUMINARY  ID 

DOCL.'.'tN'T  NO. 

FC-  3320 

AHALST 

DOCMR 

APPR'D  gm\r^ 

REV  ISliEET  2 Of' 22 

From  Preceding  Sheet 
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Powered  Flight  Subroutines 

DRAV.-M  ■>'  ./V  7- 

PRGV;R 

/ ! 

LUMINARY  ID 

DOCU.V.Sr^T  NO. 

FC-  3320 

AMALST 

ut^no 

mm 

REV  1 SHEET  3 OS  22! 

From  Preceding  Sheet 

I via  USPRCADH  (FC-2080) 


COSINE 


Input: 

MPAC  containing  CDUSPOT  tr 


Compute  N . 

cos  (MPAC)  ^ TEM3  in  revs  2" 


FC-3070  / Output: 

/ MPAC  containing  cos  ( input) 


COSCDU  ^ TEM3  — MPAC^  Store  cosine 

I D 


A.  ] 


-CDUSPOT  # TEM3 


via  USPRCADR  (FC  - 2080) 


SINE  +1 

Compute 
sin  (A,  E) 

FC-3070 


Input: 

A,  L containing  CDUSPOT# 
TEM3 

Output: 

MPAC  containing  sin  (input) 


MIT  INSTRO.'.'.EMiATICN  lAB 
CAMBRIDGE,  Ml*,SS. 


ORAVVN.-^ 
PRGMR  _ 
AHitST  _ 
OOCMR 


Lfapd 


APCLLO  GUIPAMCE  AMD  HAVIGATIC:! 


Powered  Flight  Subroutines 


LUMINARY  1D| 
rev" 


CCCU.  ’.EfIT  MO. 

PC-  3320 
'~|st:EEOi  c7T2  j 


I Inhibit 
i inter- 
rupts 


From  Preceding  Sheet 


(QUICTRIG 


Faster  version  of  CD*TR’''GS; 
computes  sines  and  cosines  of 
thi’ee  2's  complement  angles  at 
CDUSPOT,  but  does  not  leave  I's 
complement  versions  of  angles 
in  CDUSPOT. 


Inhibit 

inter- 

rupts 


V/ 

itemp: 

< 


Save  return  address 


Set  up 
loop 
control 


V ^ Go  thru  QUICTRIG  +4  three 

(QUICTRIG  +4^  ^ 

' T rKlV'lT^V.  =:  +t>y 


ITEMP2  = 4;  the  second  time, 
ITEMP2  = 2;  the  third  time, 
TEMP2  = 0. 


A< — CDUSPOT  ” ITEMP2 


SPSIM  \ 

Compute 
sin  (A) 

FC-  3160“/ 


Input; 

A containing  CDUSPOT  # 
ITEMP2  in  revs  @2-^ 


Output: 

A containing  sin  (input) 


Next  Sheet 
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Powered  Flight  Subroutines 

DRAWN • '’.1  ■ A.  ..  1-  '1,.  i 

PRGMR  ^ 1 

1 DOCU'li.NT  NO. 

LUMINARY  id  fc-  3320 

AHALST  1 

OCCMR  CWYl  r,.*+.;,  M 

ReV  jSSEtf  7 Cr  22 

^ NBSM 


X2 


QPRET 


To  call  TRG*NBSM  in 
interpi'etive  language 


Save  return  address 


XI  < SI 


CDUSPOTy< — PLO  i.  XI 
MPAC^< — PL32y 


Vector  to  be  transformed 


Transformed  vector 


X2  contains  QPRET 


MIT  INSTRUMENTATICN  LIB 
CAMBRIDGE,  MASS. 

APOLLO  GUlDAtXE  AMD  MWiGATIC.'l 

Powered  Flight  Subroutines 

0R,AWfJ  X 

mm 

PRGiV.S 

mm 

LUMINARY  ID 

ODCU.lETfr  NO. 

FC-3320 

ANALST 

■|H 

DCCMR  ’CtWirLiiJL 

REV  ISHEET  8 CE  22 

I^DU^SMNK, 


CDUTRIGS 

Get  angles 
from 
current  contents 
of  CDU 
registers 
■■■ 




(c*MM*N^ 


TRG*SM^ 


, 'cb^^TR«GS\ 

/ Get  angles  \ 
‘from  CDU  values.' 
\in  CDUSPOT„/ 

\:~SR72— 7’ 


f 

A 

- - 3 

Indicates  SM  to  NB 
transformation 


— ^ 

AX*SR*T  \ If  A = - 3:  SM  to  NB 

SMtoNB^.  transformation 

or  NB  to  \lf  A = +3:  NB  to  SM 
SM  trails-  / transformation 

formation. y/ 


“SH' 


■1‘2- 


Input  and  output  in  VBUF-. 


MPACy<- 


via  INTPRET(FC-2090) 
VBU..’,.  I Restore  MPAC 


V 


^Return  via 
\QPRET/  ■ 
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Powered  Flight  Subroutines  ' 

OSAWN 

PRGMR 

LUMINARY  ID 

DCCU.T.EliT  i;o. 

FC-  3320 

AfTALST 

Ul3l2^ 

iSffiECHSESSSld 

ISHccT  9 cr22  ! 

'•SMNB* 


Enter  with  sines  and  cosines 
at  SINCDU  and  COSCDU. 


Enter  with  sines  and  cosines 
at  SINCDU  and  COSCDU. 


Enter  with  vector  to  be 
transformed  in  VBUF. 

Good  only  for  vectors  of 
magnitude  less  than  unity 
If  A r - 3 : SM  to  NB 

transformation 

+ 3 : NB  to  SM 

transformation 


At—  + 3 


Note: 

DEXIj^  = DEXlj^ 


INDEXI  ” A 


J 


Next  Sheet 


DEXDEX 

1 

A 

DEXI 

+ 3 

0 

4 

+ 2 

1 

2 

+ 1 

2 

0 

- 3 

2 

0 

- 2 

1 

2 

- 1 

0 

4 

Note:  when  DEXDEX  = 0, 
A = + 3,  DEXI  = 4. 
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Powered  Flight  Subroutines 


LUMINARY  ID 


DOCU./flfT  HO. 
FC-3320 


REV 


From  Preceding  Sheet 


BUF  f—  1 

A.  L < V 

BUF+  DEXl 

DEXl  = DEXI 


LOOPl  J 


MPACjj*— 

— A.  L 

ADDRWD  C— 

— SINESLOC  + DEXl 

Input; 
MPAC. 


D 


ADDRWD  (sin  (CDU  angle)  ) 


DMPSUB 

Multiply 
MPACj^  by 

VDR"^  (ADDRWD)/  r'  + • • 

J MPACij,  containing 

— 3Q70  ■/  MPACj^  X ADDRWD 


<-0  ; SM  to  NB  transformation 


> + 0 

NB  to  SM  transformation 


TERMlTMPjj — - MPACp 


_v_ 


TERMlTMPjj MPACj^ 
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DRAV/M  y'  . 

-/■A- 

PRGMR 
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LUMINARY  ID 
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FC-  3320 

ANALST 

APPR'D  . 

U/il2Si 
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From  Preceding  Sheet 


ADDRWD  < ADDRWD  + 6 

MPACj^^ VBUF  + (BUF  + DEXl) 


/ DMFSUB  \ 

Multiply  \ 
MPACj^  by  ' 

IDR"^  (ADDRWDy 
K FC-  3070  7 


Input; 

MPACjj 

ADDRWD  (cos  (CDU  angle)  ) 
Output: 

MPAC^  containing 
MPACj^  X ADDRWD 


A.  L< BUFj^ 

BUFjjC VBUF  ^(BUF  + DEXl ) 

(VBUf|(bUF  + DEXl))jJ — 

2 [TERMlTMPj^  + MPACj^] 


> + 0 




— A - 1 


Test  index 


LOOP2 


A.  L^ 

“ BUF^ 

> 

LOOPl 

\Sh. 

13  / 

DEXDEX  ' — DEXDEX  - 1 


NexY  Sheet 
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DRAWN  ^ 
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AN,\LST 

DOCMR  ^ 
APPR'D  0 t 


li I ■/'</''  Pov/ered  Flight  Subroutines 
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I LUMINARY  IE 

\<'.[l^ho\ FC-3320  __ 

jsiun  14  0^2 _ 
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From  Preceding  Sheet 
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DRAWN  . 

ANALST 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3320 

mniira 

mm 

REV  ISHEH  180F22 

From  Preceding  Sheet 


-SINCDUX, 


/ DMP  \ 
Multiply 
-SINCDUXj^- 

SINCDUZ 

FC-3070/ 


Input: 

ADRESiSINCDUZ) 

MPACj^  containing  -SINCDUX^ 

Output: 

MPAC^  containing 
-SINCDUXj^  SINCDUZ 


/ DMP  \ 
/ Multiply  \ 
^(-SINCDUXq-  ' 

SINCDUZ  . 

\ SINCDUY  / 
\ FC-3070~7 


ADRES(SINCDUY) 
MPACq  containing 


Output: 


-SINCDUXjj-  SINCDUZ 


MPAC^  containing 
(-SINCDUXq*  SINCDUZ  )j. 
SINCDUY 


MPAC  +5„^2  ^ [( -SrNCDUX„- SINCDUZ  )_•  SINCDUY]  , 


-sin  X sin  Y sin  Z 


MPACj^.^ — - (-  SINCDUXj^  • SINCDUZljj 


/ DMP  \ 
Multiply  \ 
-(-SINCDUXj^^ 

SINCDUZ  )j^- 

COSCDUY  / 
\ FC-3070  / 


Next  Sheet 


ADRES(COSCDUY) 

MPACq  containing 

- (-SINCDUXj^  • SINCDUZ )j^ 
Output: 

MPACrp  containing 

-(-SINCDUXj^.SINCDUZ)j^- 

COSCDUY 


From  Preceding  Sheet 
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Powered  F'light  Subroutines 

ANALST 

DOCUMENT  NO. 

LUMINARY  ID  FC-:T320 

ct/hS! 

APPR'D 

SUBROUTINES  CALLED  WHICH  ARE  FLOWED  ON  OTHER  FLOWCHARTS 


Subroutine 

Name 

Where 

Flowed 

Description 

Where 

Called 

CDULOGIG 

FC-3150 

Converts  s.  p.  2's  complement  number  to 
d.  p.  1 's  complement 

Sh.  3 

COSINE 

FC-  3070 

Computes  cosine 

Sh.  4 

DMPSUB 

FC-3070 

Doiible  precision  multiplication 

Sh. 13, 14 

18.  2d 

! 5NTPRET  FC-3070  Interpretive  language 
i __  < 

I'MPACVBUF  , FC-'3070'7~S^es“"MPAC"~in  VBUF" 


Sh.  9 

"shr^rro 


SINE 

FC-3070 

I Computes  sine 

Sh.  4 

: spcos 

1 FC-3160 

Computes  cosine 

Sii.  f 

Allows  access  to  F-bank  other  than  user's  , Sh.  3,  4 


LATITUDE  LONGITUDE  SUBROUTINES 


LAT-LONG 

Sh. 

LALOTORV 

Sh. 

GETERAD 

Sh. 

MIT  INSIW/iEffTATIC.'!  UB 
CWABRIDGE. 

APOLLO  CUIDATXE  AND  N.\VIGATIC:i 

Latitude  Longitude  Subroutines 

DRAim 

ISSR^ 

PRCAIR 

LUMINARY  ID 

DCCUMEm  MO. 

FC-3330 

■l^ijf^il¥«Jl^liiiigrea^5gw 

REV  1 ISP.EEf  1 Cr‘13  ) 

(“TTT^  Vector  to  latitude,  longitude. 

At  altitude  subroutine 


•i/ 
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OOCU.Vi-NT  MO. 

LUMINARY  ID  FC-3330 

1 //t/7o 

iiii-ina 

REV  1 [sheet  2 C'E  13 

From  PreceHing  Sheet 


Convert  vector  in  reference 
coord,  system  to  vector  in 
planetary  coord,  system 

Output:  MPAC,,  = r vector 
29'^ 

in  m@2  ^27^’°^  earth 
in  m @ 2 ' for  moon 


ALPHA unit(MPAC.y)  Unit  rp@  2 


^SETGAMMA 
Set  earth 
or  moon 

Sh.  10 


Input: 

LUNAFLAG: 

clear  for  earth 
set  for  moon 

Output: 

GAMRP  containing  , 
B2/A2  (earth','  )@2 

or  IBl  (=1,  moonV)  @ 2^^ 
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Latitude  Longitude  Subroutines 

Ipr^mr 

DOCUMENT  NO. 

LUMINARY  ID  FC-3330 

TOBKSSUSBBIBi'l 

AtV  1 IStlEET  3 Cf  13 

From  Preceding  Sheet 


Return 
via 
INCORPEX , 


INCORPEX  contains  QPRET 


MIT  INSTRUMEmATIO.N  UB 
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APCtLO  GUIDANCE  AND  flAVIGATICT 

Latitude  Longitude  Subroutines 

///•/h/i 

Docu.v.Efrr  no. 

LUMINARY  ID  FC-3330 

1 III,  lie 

SSIIBral^iRSRSSil^ 

REV  1 ISUEET  4 Cv 

From  Preceding  Sheet 


Multiply  by  2^ 
for  scaling. 
THKTA„  is 
in  PL2„ 


Return 

via 

QPRET 


MIT  INSTRUMEmATlCM  U3 
CAfABRIDGE,  tWSS. 

APOLLO  GUIDANCE  AND  NAVIGATICN 

ORAWI 

LUMINARY  ID 

DOCUMENT  MO. 

FC-3330 

^KUBr 

RHV  1 ISKEEI  6 Ct  13  1 

Next  Sheet 


MIT  INSTRUMEOTATIC.'!  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

ORAWH 

Latitude  Longitude  Subroutines 

pr?r.MP 

lSffi^Ck9^H99[^fll3iinilV 

APPR'D.  .r.A^ 

iLU4n^ 

REV  1 ISNECT  7 Cr  13  j 

From  Preceding  Sheet 


PLO-.v- Unit(MPAC„,  PL2^,  PL0„) 

ALPHA  V,,  = 

V 

JJ  u u 

cos(LONG)cos(LAT) 

ALPHAV-, 

,4—  PL0„ 

unit 

sin(LONG)cos(LAT) 

— 

V 

>sin(LAT) 

4^ 


SETRE 


Set  earth 
or  moon 
radips 


Sh.  11 


No.  moon 


MPAC^tj 1 


Use  cos  0=1 
to  make 
MPAC 
non- zero 
for  moon 


Output: 

ERADM„  = earth  or  moon 
radius  in  m @ 2 


Set  for  earth 


earth 


RP-TO 


Convert  rp 
vector  to 
r vector 

FC-3340 


Input: 

MPAC  = 0 for  earth 
= 1 for  moon 


,+  2 


PL0„  = unit  rp  vector  (g  2 
PL6^  = time  in  csec@2'*'‘^° 


OUTPUT: 
MPAC^  = 


unit  r vector 
lffl2+29  fQj.  earth 
@2+2'^  for  moon 


Next  Sheet 


APOtlO  GUIDA^.■CE  AND  EUVIGATION 

Latitude  Longitude  Subroutines 

OOCUMEffl  NO. 

LUMINARY  ID 

FC-3330 

REV  1 

ISHECTS  t?13 

MIT  INSTRUMENTATIOfI  LAB 
CAMBRIDGE,  MASS. 

ORMW 

///fAa 

PRGMR 

ANALST  / -foUtj 

DOCMR^^^^isJvYI  .CA^ 

l// W7o 

APPR'D 

1 / 1 <./7o 

From  Preceding  Sheet 


Radius  of 

Fischer 

ellipsoid. 

a:  semi-ma_, 
axis 

b:  semi-mino 
axis 

Earth  radius 
in  m@2+29 


MIT  lNSTRU.V.tf.TATIC.'J  UB 
CAMBRIDGE,  f«SS. 

APatO  GUIDANCE  AND  NAVIGATION 

Latitude  Longitude  Subroutines 

PRCMR 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3330 

BBME5!Si!PI!HBISW 

roBW 

in 

REV  1 1 SHEET  9 Cf  13  I 

Set  earth  or  moon  radius 


Store  radius  in  ERADMj^ 
and  return. 


MIT  INSTRUMEIilATlCN  UB 
CA.MBRIDGE,  I.USS. 

APOLLO  CUIDAA’CE  AND  fJAVIGATICi^ 

Latitude  Longitude  Subroutines 

DRAiVN  S 

PRGMR 

LUMINARY  ID 

OOCUMEffT  NO. 
FC-33.30  1 

an.'lst  /I  ■'M.-X’t Let/ 

titi.no 

wSSS^SSIISSIISIM 

REV  1 ISHEEE  11  Of  13  ] 

j^g  rescaled  from 


:,+27 


to  2 


Store  radius  in  m @2 


+ 29 


+29 


Return 

via 

SETREX 


SETREX  contains 


QPRET 


MIT  INSTRUMENTATICM  LAB 

CAMBRIDGE.  AWSS. 

APaiO  GUIDANCE  AND  NAVIGATIC'I 

' 

LUMINARY  ID 

DOCUME.'/I  NO. 

FC-3330 

REV  1 ISHEET  12  Of  13  | 

SUBROUTINES  CALLED  WHICH  ARE  FLOWED  ON  OTHER  FLOWCHARTS 


Subroutine 

Name 

Where 

Flowed 

Description 

Where 

Called 

R-TO-RP 

FC-  2283 

Converts  r vector  to  rp  vector 

Sh.  3 

RP-TO-R 

FC-2283 

Converts  rp  vector  to  r vector 

Sh.  8 

PLANETARY  INERTIAL  ORIENTATION  SUBROUTINE  (BIOS) 
MAJOR  SUBROUTINES  AND  EXTERNAL  ENTRY  POINTS 


RP-TO-R 

Sh. 

2 

R-TO-RP 

Sh. 

3 

EARTHMX 

Sh.  4 

MOONMX 

Sh.  5 

1.  GUIDANCE  SYSTEM  OPERATIONS  PLAN  USING  PROGRAM 
LUMINARY  ID  (GSOP),  R-567,  SECTION  5,  GUIDANCE 
EQUATIONS,  (REV.  8) 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

PIOS 

DRAWN 

Kms\(L‘7n. 

■ilfO 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3340 

DOCMR^X.h-.  DfNA  rjL. 

aliil'yt 

APPR'D-t?^A>hV\.C^ 

UOLE 

REV  1 ISHEET  ^ OF  10  1 

SAVE  RETURN  ADDRESS 


RP-TO-P  CONVERTS  JT  p , A VECTOR  EXPRESSED 
IN  THE  PLANETARY  (EARTH  EIXEP  OR  MOON 
FIXED)  COORPIMATE  SYSTEM  TO  r,THE  SAME 
VECTOR  EXPRESSED  IN  THE  BASIC  REFER- 
ENCE COORDINATE  SYSTEM 


IN  put: 

1.  MPAC  . 


« O FOR  EARTH 
# O FOR  MOON 


Z.PLO  = Tp 


t , TIME  OF 


^ ’ 

OUTPUT 

1.  MPAC^=t  r IN  M I 


tp  , IN  CSEC  AT  Z «• 


SET  UP 
FOR  EARTH 


SET  UP 
FOR  MOON 


(^RPTORA  J 

/ EARTH MX  \ 
'compute  M*  (t) 

. FOR  EARTH 
\ " SH4  / 

/ EARTH L \ 
' COMPUTE  i 

, FOB  EARTH 

V- — ^ 


INPUT  / 

1.  PLfcp  »t  \ FOR 

Z.AlOp=A,  V 

3.WEARTHj,=  W,  

OUTPUT 

1.  MMATRIXp,  (=  PL20^) 

= M * (t)  I' 

INPUT 

1.  AxOp  1 pad  loaded  and 

z.-AYOp--A^r  considered 

OUTPUT  ^ CONSTANT 

l.MPAC^=  ^=(-A,,-Ay,0)fl)2' 


f MOOMMX  \ 
COMPUTE 
FOR  MOON 
'v  SMS  / 


INPUT 
1,  PL«-  » T 


4p  = M*(t)  1 

CONVERT  VECTOR  FROM 
BASIC  REFERENCE  TO 

_ ij*—'. 

^ M 

MPACy^  W MATR  I 

M P A C y* 

S04  LM  y 

shifted  fS)  V* 

EQ  5.  Z . 3 

(§>  \ 

I* 

E.FSUBOp  = Fp 
T.FDOTp  * F 
OUTPUT 

1.  MMATRIX^(«PLZHj 
- M*  (t)  (»  Z' 

EQ  S.  Z.E 


FORM  * 4,  f X Fp 

r^504RPR^+  MPACy  X S04f 
I" 

1 

r“  (rp  + <tpxrp)‘'M*(t) 


MMATRIX^ 


(B  Z"*l 


S04RPR  = PLO 


THIS  IS  EQUIVALENT  TO 

M*  (tj-f  Clp  -F^tp  XIp) 

EO  S.  Z.Z 


(RPRPXXXX 


\ 

f 

SHIFT  MPACy  = 

r TO  z" 

1 

SET  POSH  LIST 
POINTER  TO  O J 


RETURN  / RURKXIT 
VIA  / CONTAINS 


= 4 20  FOR  EARTH 
= 4 '?.7  FOR  MOON 


MIT  INSTRUMCNTATION  U9 
CAMBRIDGC.  MASS. 


APOUO  CUtOANCC  ANO  MVICATION 


R-TO-RP  CONVPRTS  r,A  VECTOR  EXPRESSED  LM 
THE  BASIC  REFERENCE  COORDINATE  SYSTEM  TO 
THE  SAMEVECTOR  EXPRESSED  IN  THE 
PLANETARY  (EARTH  FIXED  OR  MOON  FIXED) 
COORDINATE  system. 

INPUT  _ 

1 MPAC  - i - O for  earth 
^ A O FO  R MOON 

2.  PLO„  • r ® 2 


2.  PLO^  • r (ffi  2 

3. PL6p  = t,TIME  OFr,IN  CBEC,AT2*» 
OUTPUT 

l.MPAC  =r  © FOR  EARTH  SAME  SCAUNG 

''  ' " 2^^''for  moon  as  inputs 

3 SAVE  RETURN 

J ADDRESS 


SET  UP 

FOR 

EARTH 


SET  UP 
FOR  MOON 


RTORPA 


/ EARTH MX  \ 
/compote  M* (t)' 

V FOR  EARTH 

\ shV/ 


Op*A, 

3.  WCARTHp 
OUTPUT 


^ MOON MX  \ 
COMPUTE  M*(t^ 
FOR  MOON  > 
^ 


1.  MMATRIX^  (.  PLZOj,)  •M«(t)  ^ 2' 
INPUT 


OUTPUT 
1.  MMATRIX^, 
(-PLtOj 

«M»(t; 

(•  2' 


COMPUTE  ^ \ 

1.  AXOp.A,  -j 

PAD 

4 

FOR  EARTH  / 

V SH4  / 

2.-AYOo«-A^| 

OUTPUT 

LOADED 

MPAC^—  S04LMy-MMATRIX 
SHIFTED  ^ t® 

1.  MPACy  » i 

• (-*x.-  ^ 

y.O)  <» 

l.PL6p-t 
2.8SUOO„  = Bo 

S.BDOTp  » B 
A.HOD10o= 


S.  FSUBOp 
7. FDOT„ 


this  is  equivalent 
TO  M»(t)'^4p, 
where  4 p - X^. 
EQ  S. 2. 6 


-ff.  =_!!'  ’LT  ^ 

MPAC  — — MMATRIX^  ( 504RPR^-MPAC^  X 

S04RPR^)  €«> 


S04  RPR  » PLO 
CQ  S.  Z.  1 


(RPRPXXAX) 


SET  PUSH  LIST 
POINTER  TO  O 


n = ■»  KOR  KARTH 
= + 27  FOR  MCXW 


^RETURN 

\ I 

Xrprexit/ 


R1*KKXIT  CONTAINS  C^I’RKT 


MIT  INSTHUMCNTATION  Ut 
CAMMIOGC,  MASS. 


APOUjO  OUtDAMCC  APtt  PIAVIGATION 


PIOS 


SAVE  RETURM 
ADDRESS 


AND  SHIFT 
VALUE  FOR 
NEWANSLE 


TIMSUBO’ 

TEPHEM 


earthmx  computes  the  transformation  matrix 
M*  (t)  FOR  THE  EARTH,  WHERE  M ♦ (t)  DESCRIBES 
A ROTATION  OF  THE  COORDINATES  SYSTEM  AUOOT 
THE  POLAR  AXIS  (*-AXIS)  OF  THE  EARTH. 


INPUT 


l.PLfc  =t,TIME  SINCE  A &C  CLOCK  WAS 


ZEROED,  IN  CSEC  AT  2 »•  . 


2.A»0„ 


AH6LE  between  X-AXIS  OF  BASIC 


SYSTEM  AMD  X-AXIS  OF  EARTH  SYSTEM  AT 


3.  WEARTH^  s 


JULY  1.0,  lDt9 


IN  REVS/CSEC  AT  I*** 

4.TIMSUB0.,.  =t,, elapsed  TIME  FROM  JULYl. 0,19*9 
TO  ZERO  IN*  OFADC  CLOCK, IN  CSEC 
AT  2** 

OUTPUT 

l.MMATRIX^(=PLZO^)  = M*(t)  AT  r'  WHERE 

^ COS  A, 


-SIM  A, 
O 


SIN  A, 
COS  A, 
O 


INPUT 


1.  PLep. 

z.  Pcio„ 


IN  REVS  at  2' 


X LU,  IN  REVS/CSEC  AT  I" 


3.  XI  X O,  SHIFT  VALUE 


4.  PL*o  = t IN  CSEC  AT  2** 


S.  TIM  SU80, 
OUTPUT 


, X t.  IN  CSEC  A 2>» 


, IN  REV  AT  2‘ 
AT  TIME  t 


STORE  A^  IN 
temporary  storage 


SAVE  PETURW 
ADDRESS 


LOAD  B,,  B,  AND 
SHIFT  VALUE 
FOR  NEWANSLE 


TIMSUBO  > 
TEPHEM 


NEXT  SHEET 


MOONMX  COMPUTES  THE  TRANSFORMATION 
MATRIX  M •*  (t)  FOR  THE  MOON  . M * (t)  ACCOUNTS 
FOR  PIFFEREMCF  IN  ORIEMTATION  OF  BASIC 
5VSTFM  AMD  MOON  SYSTEM  ACCORPIN6TO 
CASSIMl’S  LAWS 
INPUT 

1.  PLfep-t,TIME  SINCE  AGC  CLOCK  WAS  ZEROED, 
IN  CSEC  AT  Z ** 

2 .TIMSUBO^  = ELAPSED  TIME  FROM  JULY  1.0,19*9 
TO  ZEROING  OF  AGC  CLOCK,  IN  CSEC  AT 
2 t* 

3,  BSOBOo  = Sol  ancle  and  IT’S  DERIVATIVE 

4,  BOOTp  ’B  > BETWEEN  EARTH’S  ERUATORIAL 

J PLANE  AND  THE  ECLIPTIC  AT 
JULY  1.0  , 19C8. 

5,  NODlOp  = LONGITUDE  OF  NODE  OF  MOONS 

t.NODDOTp’=  A j > ORBIT  AND  DERIVATIVE  , IN 

J BASIC  SYSTEM  AT  JULY  i.O, IMS 

- F 1 ansle  mean  ascending  node 

o'  MOON’S  ORBIT  AND  DCRIVA- 

8.F00T„  * tive  AT  JULY  1.0,19*9 

OUTPUT 

l.M  MATRIX,,,  («  PL20,„)  « M • (t)  ATI* 

INPUT 

1.  PL0p  = Bo  IN  REVS  AT  2® 

2. PL10o  = B IN  REVS/CSEC  AT  2"** 

3. X1«  5,  SHIFT  VALUE 

4. PLGp  » t IN  CSEC  AT  2»* 

5. TIMSUBOp-  t,  IN  CSEC  AT  2** 

OUTPUT 

1.  MPACp  . B IN  REVS  AT  2 • AT  TIME  t 
STORE  B IN  TEMPORARY  STORAGE 


LOAD  Fo  , F,  AND 
SHIFT  VALUE 
FOR  NEWANGLE 


INPUT 

1.  PL8p  » Fo  IN  REVS  at  2® 

2. PL10p=  F IN  REVS/cSEC  AT  2'*’ 

3.  X 1 -4,  SHIFT  VALUE 

4. PLfcp=  t IN  CSEC  AT  2»* 

5.  Tl  MSUBOo  = tp  IN  CSEC  AT  2 ** 
OUTPUT 

l.MPACpSF  IN  REVS  AT  2”  AT  TIME  t 

SAVE  F IN  TEMPORARY  STORAGE. 
AVE  CTB  +2  = PL  2 2 

LOAD  .n-jo  , , AND 

SHIFT  VALUE  FOR 
N EWANGLE 


MIT  IMSTRUMCMTATION  lAI 
CAMMIOGC.  MASS. 

Ipkgaw 

IS 

fISS 

rvsn 

m 

etpn 

C3B 

XraiLO  CUIMNCC  AW  NAVICATION 

PIOS 


from 

PRPCEDIN&  SHEET 


/ MEWAM&LE  \ 
/Compute  longitud^ 
OF  NODE 


PLg„-^  MPAC„ 


Z.PL10p-=jij  IN  REVS/CSEC  AT  2'** 

3.  Xl  = 5 , SHIFT  VALUE 

4.  PLtp-t  IN  C SEC  AT  2 •• 

5. TIMSUB0  « tp  IN  CSEC  AT  2 »• 

STORE  Jlj  IN 
TEMPORARY  STORAGE 


OUTPUT 

1.  HPACp  . 

IN  REVS  AT 
2 ® AT  TIME 
t 


a,  » COS  A, 


PL  lOp---  MPACp---COS  (MPACp) 
AVECTRp-^  MPACp  ^ 2' 


bj  • COS  B - COS  ilj 
BVECTR„->2  •«-  COB-  • MPAC, 

O DC 

SHIFTED  fi  2' 


BVECTR-  + 4 SOB- • PL  10- 


SHIFTEO  9 2' 


PL  Bp-—  MPACp-»-  SIN  (PL  0p) 


- SINfi, 


MPAC, 


BVECTR- 


MOONMXi 


504  F„— - AVECTRp  + 2 


STORE  F IN  TEMPORARY  ST0RA4E 
S04F  » PL« 


4.^  =CO$B  - SIN.nj 

AVECTR,  +2  COBp  • PL  Bo 
SHIFTED  & 2' 


shifted  i«  2' 


S INNO  01  = PL0 


CVECTR  « PL8 


H163ER0S. 


C,  = - SIN  B 
PL  lOp  ( SOB  o) 


c,  = cos  e 


PL  1 4^-^  BVECTR^  • S I N » - 


Sj=  SINI  , = COSI  , WHERE  I * 6521.  5^  THE 

CONSTANT  AN&LE  BETWEEN  THE  LUNAR  EQUATORIAL 
PLANE  AND  THE  PLANE  OF  THE  ECLIPTIC 


NEXT  SHEET 


MIT  mSTRUMCNTATKM  lAI 
CAMBRIDCC.  MASS. 


APOUO  MlOANCe  ANB  MAVIGATKM 


lHEWH^6|.£ 


I rt,*-  t 


NewAN6I.E  1$  A GENERAL  PURPOSE  SUBROUTINE 
FOR  EVALUATING  THE  FUNCTION 
X»  *0  + K (tTT.) 

INPUT 

1.  PLip  « IN  REVS  AT  2* 

2. PL10p=  i IN  RCVt/cSCC  AT  2"**/l'**/ 

3.  XI-  SHIFT  VALUE  OF  0/% /*  CORRESPOND  IN  G 

TO  i SCALING 

4.  PL  = t , TIME  IN  CSEC  AT  2 •• 

5. TIMSUBO^  - , TIME  IN  CSEC  AT  2** 


- _ 

U8Ht< — MPftCr  + Tim:  ^o. 


1.  MPACp  « X IN  REVS  AT  2 • 


LO' . PAtfrOF  ^ 


#L)  !»» 


TIMSUBM  « PL  14 


N ( Ir  to 

MPNC^"< Mf'ftCp  ; 

s -r  rcO  $1  T.*' 


MINOR  PART  OF  < (t+t,) 


So  -t  X C t f O _ J 
SpT^e^-St^  MP''  o •: 


PART  OF  i (S  +t,) 


•1^  I>i>RT  OF  Li  Lo  ^ 
l^lP^Co  •* TIFUSOB 


X f t t ti) 

rvi  fACp<^  pLi  0^  ■ (V\pAtj^ 
5HiFr^t>  & 2=' 


MAJOR  PART  OF  X(t  + to) 


X C t T tts  ) 

tPl-P, 

ji  L 0 


FORM  Xo  PLUS  MAJOR 
ANO  MINOR  PARTS  OF 
X (t  ♦*,) 


CLt  AR 

Ow  FiVb 


FM  OFF  THE 
'RFLOW  INDICATOR 


V.  A 


MOnATION  lAI 
MASS. 


A.-M- 


APOUO  CUIOANCC  AMO  NAVIGATION 

PIOS 

l_,uminarT  kocuniw  mo. 

1 D ‘ FC-3340 


PROGRAM  CONSTANTS 


GSOP 

SYMBOL 


MEANING 


ENGINEERING 
VALUE  AND  UNITS 


H16ZEROS, 


HIDPHALF^ 


THE  VECTOR 

(0,  0,  0) 

THE  NUMBER  1 


(0,0,0) 


(0,  0,  0) 


NODIO, 


NODDOTr 


FSUBO, 


BSUBO, 


WEARTH, 


LONGITUDE  OF 
NODE  OF  LUNAR 
ORBIT  IN  BASIC 
REFERENCE 
SYSTEM,  AT 
JULY  1.0,  1970 

DERIVATIVE  OF 
LONGITUDE  OF 
NODE 

ANGLE  FROM 
MEAN  ASCEND- 
ING NODE  OF 
LUNAR  ORBIT  TO 
THE  MOON,  AT 
JULY  1.0,  1970 

DERIVATIVE  OF 
ANGLE  F 


5.  859196887  RADS 


-1.  070470151  E-8 
RAD/SEC 

. 5216749598  RADS 


2.6724042552  E-6 
RAD/SEC 


OBLIQUITY,  4.  0915963316  E-1 

ANGLE  BETWEEN  RADS 

MEAN  EARTH 
EQUATORIAL 
PLANE  AND 

ecliptic,  at 

JULY  1.0,  1970 


. 932520147 
REVS 


-1. 70370616 
E-11  REV/ 
CSEC 

2.  42182092 
E-1  REVS 


4.  25326347 
E-9  REV/ 
CSEC 

6. 51197781 
E-2  REVS 


DERIVATIVE  OF 
' OBLIQUITY  B 

ANGULAR  VELOC 

ITY  OF  THE 

EARTH 

COS  1 1 WHERE  I IS 
ANGLE 
BETWEEN 
•MEAN 
LUNAR 
EQUATO- 
RIAL 

SIN  I PLANE 

AND  ECLIP 
TIC  5521. 5' 


-7.  1975797907  E-14  -1.14553040 
RAD/SEC  E-16  REV/ 

CSEC 


7.  292115147  E-5 
RAD/SEC 

. 999641732 


1. 16057617 
E-7  REV/ 
CSEC 

SAME 


. 0267657905 


MIT  INSTRUMENTATION  lAB 
CAMBRIDGE,  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


LUMINARY  1 


PROGRAM  CONSTANTS  (CONT. ) 


AGC 

TAG 


GSOP 

SYMBOL] 


MEANING 


ENGINEERING 
VALUE" AND  UNITS 


lAGC  VALUEl 

AND  UNITS 


AGC 

SCALING 


AZO, 


S.NGLE  BETWEEN 
:-AXIS  OF  BASIC 
YSTEM  AND 
lARTH  SYSTEM. 
ULY  1.0,  1970 


4.  8631512705  RADS 


7.7399456371 
X 10"^ 

REVS 


REPRESENTATIVE  PAD  LOADS 


AGC 

asop 

MEANING 

ENGINEERING 

AGC  VALUE 

AGC 

TAG 

TAG 

AND  UNITS 

SCALING 

504LMy 

VECTOR  LIB- 
RATION  Ip 

-3.  98466794x10"* 
RADS  „ 

RADS 

2® 

IN  MOON 
SYSTEM 

-2. 98927218x10  ° 
RADS  . 

-3. 79924699x10" 

RADS 

AXO„ 

ANGLES  ABOUT 

3, 962911018x10"^ 

RADS 

2° 

X-  AND  Y-  AXES 

RADS 

-AYOj3 

-Ay 

OF  BASIC  SYS- 
TEM DESCRI- 

-5.58111439x10"® 

RADS 

RADS 

2° 

BING  PRECESSIO^ 

AND  NUTATION 

LUNAR  AND  SOLAR  EPHEMERIDES 


LSPOS  Sh.  2 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


DRAWN 
PRGMR 
ANALST 
IDOCMR  f*r. 


APOUO  GUIDANCE  AND  NAVIGATION 


LSPOS 

Locate  sun  and  moon 


LUMINARY  ID 


DOCUMENT  NO. 

FC-3345 


a/aAy 


REV  2 


ISHECT  1 OF  5 


^ LSP05  ^ 

~L  OC^.T€SON  AND  MOON  J 


COMPUTES  UNIT  POSmON  VECTW  OF  TME  90H  AND 
MOON  IN'mE  BASIC  KEFERtriCt 

INR/r;  TEPHEM-TlMC  FROM  MIONIGHT  1 JULY 

PRECEDING  ■TOE  LAUNCHTDTHCTIMt  OF  T>lC 
LAUNCH  (when  THE  AGO  aOCK  WENT  TD  ZERO) 
T1MEt,TlMei  IN  MPAC. 

OUTPUT:  VSUN-UHIT  POSITIONAL  VECTOR  OF  SUN 

VMOON-  UNIT  POSmONAL  VECTOR  OF  MOON 


I 7lMfP-»~  (riMCl  + 7IME2  + TFPHEM)/CSTO0AY  I t 6 MEASURE 0 FROM  JULY  1,  1969 


CLEAR 
FREE FLAG 


THE  SUN  VECTOR  ft  LOCATED  BETWEEN  TWO 
ANGLES.  THE  FIRST  ANGLE  (OBLiaUlTY) 
a THE  ANGLE  BETWEEN  THE  EARTH 
EQUATOR  AND  THE  ECLIPTIC. 


THIS  AREA  a EKTBCD  THREE  TIMES 

I 


Jamoo  anfOMEP/ET  + aars^+gtmp 
JsmC-nMEP/SZ  + BARS))  % BMOO  ♦ GTMP 
^Sm(7IMEP/34.5  ♦ CARG^  x CMOO  ♦ GTMF 


ASlNfoMEGA.  t ♦ PHASE  A))  ^ 

\ ^ ' / R*  lIMCMCULATUM 

BS I N (OMEGA  * t ♦ PHASE  B)J 
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INTEGRATION  INITIALIZATION 
MAJOR  ENTRY  POINTS  ON  THIS  FLOWCHART 


STATEINT  Sh.  2 

STATINTl  Sh.  2 

ATOPCSM  Sh.  7 

PTOACSM  Sh,  8 

ATOPLEM  Sh.  9 

PTOALEM  Sh.  10 

CSMPREC  Sh.  12 

LEMPREC  Sh.  12 

CSMCONIC  Sh.  13 

LEMCONIC  Sh.  13 

INTEGRVS  Sh.  14 

INTEGRV  Sh.  15 

INTSTALL  Sh.  17 

INTWAKE  Sh.  18 

INTWAKEO  Sh,  18 

INTWAKEU  Sh.  20 

AVETOMID  Sh.  23 

MIDTOAVl  Sh.  26 

MIDTOAV2  Sh.  26 
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STATEINT  is  scheduled  every 
600  seconds  during  the  idling 
program  POO. 


^TATEIN^ 


GROUP  2. 

/Set  up  restarts/ 
'to  schedule 
ITATINTI  as  a/ 
'’INDVAC  job 
^ with  priority  5/ 


5TATINT1 
, FINDVAC 
job 
Priority  05 

Sh.  2 


TASKOVER 


Kill  integration  until 
next  POO 


^OINT  ^ 


Yes 


/GROUP  2.  0/ 
/Kill  group^ 
restarts 


Continue 

integration 


^TATINT^ 


^ XOADTTMT 
'Load  present' 
time  into 

MPAC  /Output:  MPACj^=TIME2,  TIMEl 
^C-3150 


\ 

i 

TDEClj^ 

^ MPACj^ 

N 
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Store  time 
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/intstallN 


Test  for 
integration 
available 


Set  NODOFLAG 
Set  STATEFLG 
Clear  INTYPFLG 
Clear  DIMOFLAC^ 
Clear  D60R9FLG 
Set  POOHFLAd 


V37  not  permitted 
Permanent  state  vector  updated 
Do  an  encke  integration 
W-matrix  is  not  to  be  used 
W-matrix  dimension  is  6 X 6 
Inhibit  backwards  integration 


'^STATEUP^ 


Permanent 
update  of  both ' 
state  vectors/ 


Sh. 


Permanent  state  vector 
not  updated 


GROUP  2.  3 


Set  up  restarts 
' to  schedule 
5TATEINT  as  a 
.ONGCALL  task/ 
' in  600  sec. 


\ STATEINT  / 

\ LONG  CAL] 
\ task  in  ^ 
/BOO  seconds 

7 

\ 

/ Sh.  2 \ 
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ENDOFJOB 
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/moveacsm^ 

love  temporaryX 
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\to  permanent 


SVDVVTMl 


Compute  and  store\ 
for  downlink  the 
rectified  CSM 
state  vector 


CMOONFLG  is 
set  to  agree  with 
MOONFLAG 
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' availability  of 
integration 

Sh.  17 


1 

^ 

' 

IRETURN 

--  VI  1 
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in  I RE  TURN 
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VINTFLAG 


[Integrate  CSM 
state  vector 
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QPRET 
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AL 


/intstallX 

Test 
availability  of 
integration 
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FLAG 

Save  return 
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Integrate  LM 
state  vector 


Set  PRECIFLG 
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Do  Encke  integration 
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influence 
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W-matrix  invalid  for 
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Encke  integration 
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DOCUMENT  NO. 
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ANALST 
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From  Preceding  Sheet 


From  Preceding  Sheet 
f ENTMID2  j 


:.oadtimeN 

Load  Present ' 
Time  Into 
MPACp 
FC-31^ 


TDECl 


D 


-MPACj^  + TIMEDELT 


(^NTMIDl^ 


INTSTALLX 

Test 
Availability  of 
Integration 
Sh.  17/ 


Integrate  LM 
state  vector 


Clear  INTYPFLG 
Set  MIDAVFLG 


Encke  integration 
integration  called 
by  MIDTOAV 


Next  Sheet 
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Integration 

Initialization 

PRGMR 

mfi 

LUMINARY  ID 
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From  Preceding  Sheet 


/ INTEGRVX 
/ Integrate  \ 
(lm  State  Vector) 


RNy  * RCVy  + TDELTAVy 

VNy  ^ VCVy  + TNUVy 

PIPTIMEj^  M TETjj 


Return  vii 
\QPRET 


Routines  Called  On  Other  Flowcharts 


Routine 

Flowchart 

Description 

Where 

Called 

LOADTIME 

FC-3150 

Load  present  time  into  MPACj^ 

Sh.  2,26,  27 

RP-TO-R 

FC-3340 

Convert  vector  from  moon 
coordinates  to  basic  reference 
coordinates 

Sh.  11 

RECTIFY 

FC-3355 

Define  a new  reference  conic 

Sh.  14,  16 

KEPPREP 

FC-3355 

Do  a conic  integration  using 
Kepler  routine 

Sh.  16 

JOBWAKE 

FC-3030 

Wake  up  a stalled  program 

Sh.  19 

UPOUT 

FC-3120 

Normal  finish  of  P27 
(Update  Program) 

Sh.  22 

i 

FLAGS 


Name 

Meaning  When  Set 

Meaning  When  Cleared 

W'here 

Set 

Where 

Cleared 

Where 

Tested 

QUITFLAG 
Flag  9,  Bit  5 

Discontinue  Inte- 
gration 

Continue  Integration 

Sh.  2 

Sh.  2 

NODOFLAG 
Flag  2 Bit  1 

V37  not  permitted 

V37  permitted 

Sh.  3 

Sh.  6 

STATEFLG 
Flag  3 Bit  5 

Permanent  state 
vector  updated 

Permanent  state 
vector  not  updated 

Sh.  3,5, 
24 

Sh.  3 

INTYPFLG 
Flag  3 Bit  4 

Conic  integration 

Encke  integration 

Sh.  13 

Sh.  3,  5, 
12,  24, 

27 

Sh.  15 

DIMOFLAG 
Flag  3 Bit  1 

W-matrix  is  to  be 
used 

W-matrix  is  not  to 
be  used 

Sh.  4, 

23 

Sh.  3,  5, 

12,13, 

14,24, 

27 

D60R9FLG 
Flag  3 Bit  2 

Dimension  of 
W-matrix  is  9 x 9 

Dimension  of 

W-matrix  is  6 x 6 

Sh.  23 

Sh.  3,5, 
24 

POOHFLAG 
Flag  3 Bit  15 

Inhibit  backwards 
integration 

Allow  backwards 
integration 

Sh.  3 

VINTFLAG 
Flag  3 Bits 

CSM  state  vector 
being  integrated 

LM  state  vector 
being  integrated 

Sh.  4,  12, 
13,24 

Sh.  5,  12, 
13,  23, 

27 

SURFFLAG 
Flag  8 Bit  8 

LM  on  lunar 
Surface 

LM  not  on  lunar 

Surface 

Sh.  4,  5, 
10 

RENDWFLG 
Flag  5 Bit  1 

W-matrix  valid 
for  rendez%'ous 
navigation 

W-matrix  invalid  for 
rendezvous  navigation 

Sh.  21 

Sh.  4,  5, 
23 

PRECIFLG 
Flag  3 Bit  8 

Normal  integra- 
tion in  POO 

Engages  4-time  step 
logic  in  integration 

Sh. 5, 12 

Sh.  4 

CMOONFLG 
Flag  8 Bit  12 

Permanent  CSM 
state  in  lunar 
sphere 

Permanent  CSM  state 
in  earth  sphere 

Sh.  7 

Sh.  7 

Sh.  8 

MOONFLAG 
Flag  0 Bit  12 

Moon  is  sphere 
of  influence 

Earth  is  sphere  of 
influence 

Sh.  8,  11, 
21 

Sh.  8, 

21 

Sh.  7,  9, 
14 
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Initialization 
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DOCUMENT  NO. 
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FLAGS  (Cont. ) 


Name 

Meaning  When  Set 

Meaning  When  Cleared 

Where 

Set 

Where 

Cleared 

Where 

Tested 

LMOONFLG 
Flag  8 Bit  1 1 

Permanent  LM 
state  in  lunar 
sphere 

Permanent  LM  state 
in  earth  sphere 

Sh.  9 

Sh.  9 

Sh.  10 

NEWiFLG 
Flag  8 Bit  13 

First  pass 
through  inte- 
gration 

Succeeding  iteration 
of  integration 

Sh.  14 

RPQFLAG 
Flag  8 Bit  15 

RPQ  not 
computed 

RPQ  computed 

Sh.  14 

INTFLAG 
Flag  10  Bit  14 

Integration  in 
progress 

Integration  not  in 
progress 

Sh.  19 

Sh.  17 

REINTFLG 
Flag  10  Bit  7 

Integration  routine 
to  be  restarted 

Integration  routine  not 
to  be  restarted 

Sh.  17 

Sh.  19 

Sh. 17, 

18 

ORBWFLAG 
Flag  3 Bit  6 

W-matrix  valid 
for  orbital  navi- 
gation 

W-matrix  invalid  for 
orbital  navigation 

Sh.21 

Sh.23 

AVEMIDSW 
Flag  9 Bit  1 

AVETOMID 
calling  for 
W-matrix  inte- 
gration 

No  AVETOMID 
W-matrix  inte- 
gration 

Sh.  23 

Sh.29 

1 

MIDI FLAG 
Flag  9 Bit  3 

Integrate  to 

TDEC 

Integrate  to  then 
present  time 

Sh.  26 

Sh.  26 

MIDAVFLG 
Flag  9 Bit  2 

Integration 
entered  from 
MIDTOAV 

Integration  was  not 
entered  from 

MIDTOAV 

Sh.  2 7 

Sh.  28 
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DOCUMENT  NO. 
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ANALST 

ORBITAL  INTEGRATION 


MAJOR  SUBROUTINES  AND  EXTERNAL  ENTRY  POINTS 


i TESTLOOP 

1 

ENTRY  TO  ACTUAL  INTEGRATION  LOOP 

TIMESTEP 

INTERMEDIATE  ENTRY  POINT  IN  INTEGRATION  LOOP 

INTGRATE 

INTERMEDIATE  ENTRY  POINT  IN  INTEGRATION  LOOP  THAT 
INITIALIZES  LOCATIONS  FOR  FIRST  PASS  THROUGH  LOOP 

ACCOMP 

COMPUTES  THE  ACCELERATION  COMPONENTS  FOR  EARTH 
AND  MOON 

gamcomp 

SUBROUTINE  THAT  COMPUTES  ACCELERATION  a DUE  TO 
THE  ATTRACTION  OF  THE  PRIMARY  BODY  P 

DIFEQ+0 

EVALUATE  jf  AND  _0AT  THE  LEFT  HAND  POINT 

DIFEQ+1 

EVALUATE  ^ AND  ^ AT  THE  MID- POINT 

FBR3 

CALCULATE  TIME  AND  CONIC  STATE  VECTOR  AT 

MIDPOINT  AND  RIGHT  HAND  POINT 

KEPPREP 

SUBROUTINE  COMPUTES  ESTI.MATE  OF  x AND  THEN  CALLS 
KEPLER  SUBROUTINE  TO  CALCULATE  CONIC  STATE 
VECTOR 

DIFEQ+2 

EVALUATE  <l  AND  ± AT  THE  RIGHT  HAND  POINT  AND  THEN 
CALCULATg"THE  FUNCTION  y AND  ITS  DERIVATIVE  z AT 
RIGHT  HAND  POINT 

N'EXTCOL 

INTERMEDIATE  ENTRY  POINT  FOR  INTEGRATING  A 
COLUMN  OF  THE  W- MATRIX 

CKMID2 

ROUTINE  ENTERED  BY  INTEGRATION  IF  CALLED  BY 
MIDTOAV 

A-PCHK 

WRAPS  UP  THE  INTEGRATION  ROUTINE  WITH  A STATE 
VECTOR  UPD.ATE  IF  REQUESTED  AND  A RECTIFICATION 

RECTOUT 

DOES  RECTIFICATION  AND  STORES  OUTPUT  IN  PUSHLIST 

DOW.  . 

ROUTINE  THAT  CONTROLS  THE  CALCULATION  OF  THE 
ACCELERATION  TERMS  USED  P'OR  INTEGRATING  THE 

W- MATRIX 

DOW.  . 1 

SUBROUTINE  TH.AT  CALCULATES  THE  ACCELERATIONS 
a AND  a 
-p  -q 

RECTIFY 

DEFINE  A NEW  REFERENCE  CONIC  AND  ZERO  THE 
DEVIATIONS 

MINIRECT 

ENTRY  POINT  IN  RECTIFY  IF  6.  MCST  BE  INITIALLY 

ZERO 

RECTIFY  +13D 

ENTRY  POINT  IN  MINIRECT  IF  \ RECT..  ALREADY  STORED 

1 * 

ORIGCHNG 

1 

' CHANGE  ORIGIN  OF  COORDINATE  SYSTEM 

‘ 

SH. 

10 

SH. 

24 

SH. 

28 

SH. 

28 

SH. 

29 

SH. 

30 

SH. 

33 

SH. 

36 

SH. 

37 

SH. 

39 

SH. 

40 

SH. 

41 

SH. 
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REFERENCES  FOR  ORBITAL  INTEGRATION 

1.  GUIDANCE  SYSTEM  OPERATIONS  PLAN  USING  PROGRAM  LUMINARY  (GSOP),  R-567, 


SECTION  5.  GUIDANCE  EQUATIONS. 

2.  OSTANEK.  W.  F. . USER'S  GUIDE  FOR  ORBITAL  INTEGRATION  ROUTINE  FOR  FIJC.HT 
sn4.  FLIGHT  504  MEMO  5.  REV  1.  TUNE.  11167. 

3.  OSTANEK  AND  KEFAUVER.  LEVEL  II  TEST  PACK.AC.E  FOR  COASTING  INTEGRATION 


L MIT/IL.  .NOVEMBER.  1967 


MIT  INSTRUMCNTATION  lAB 
CAMBRIDGE.  MASS. 


APOUO  GUIDANCE  AND  NAVIGATION 


Orbital  Integration 


LUMINARY  WUMENI  w. 

FC“3355 


|nTTI»T»iil 


THE  IKJITI^L  EMTRV  INTO  TE.«STl_OOP  IS  FROM 

INTEe(RV,  ( FC-3350  ),  IT  IS  SUBSELPUEMTUN" 
REE-MTEREO  FROM  DIFFERENT  POINTS  IN  THE 
ROUTINE  /VS  INTEG,R/\TION  CONTINUES  IN  At 
INTERVAUS  TO  THE  UPPER  LIMIT 


CLEAR 

STATEFL5 


INTEXIT 
SH  40 


PRIM/LRT  BOCrV 
INDICATOR  IS 
STORED  IN  XE 


STOP  THE  INTEGiRATlON 
BECAUSE  FLA<3|  IS  SET  AS 
A RESULT  OF  REQUESTINiSt 
VERB  04» .state FUG,  MUST 
BE  LEFTIN  ACLEAP,  CON- 
DITION UPON  RETURN 
FROM  INTE&RATIOM 


this  clears  several 

FLAOS  and  COES  TO 

intwake  , Fc-  3350 


I -^CON 


■ I ! 


‘JJM&EK  PO^^olBuE  TH:t>  TE'^T 
WILU  *\l_WA,ve  FAvlL.  ME\  \CE. 

LUMINARY  mcver't^kel-:^ 

THI*^  P/\rH 


Z^EAR  NCT  N 

ViDPLAG  ^/  OCCw'RSE 


MIDFL/^.C^  I 


IN  MiDCOUR^E.  , SO 
INCLUDE  r^iiDCOURSE 
perturbations 


KJORFIMAvU 


“UMUE 


10o'PL34-c 

EARTH •XZ 


«>HIFTEC 


BEGIN  CA.-C  J OP 


minCaooosec  . .3 


A/Up ) 


4t  MAX  IS  the  maximum  ALLOW/-.BLe 
'N~ERVAL  FOR  ONE  NYSTROM 
integration  CYCLE 


M P AC  D“ 


.B 

CON 


-.BDn  • MPACr 


.3Dd  = O.S<f) 


next  sheet 


MIT  INSTRUMENTATION  UB 
CAMBRIDGE,  MASS. 


APOUO  GUIDANCE  AND  NAVIGATION 


Orbital  Integration 


LUMINARY  DOCUMENT  NO. 
ID  FC-3355 


FROM  PRE.CEO)MGi  eHEET 

I 


i_o/\d  mpac  -such 
1‘i.  trunc- 
ated TO  A MULTI  P1_E  OF  IEEp 
C-iEC'Si.EiCALED  AT 


= -^r. 


pli-z-d 


•co?/^ 

- MPAC  D 

B 5.20 


DT/  -a.  mfo<  c, = -4000 
erEC-S  AT 


MAX  >-wo5> 
\ •SECSX 


maxdt 


4000  eEC. 
— DT/EMAXp 


LI  MIT  At  TO 

THE  MAXIMUM 
value  Al O'/V! 


AT  THIE*  POI  NT 
MAX  = MIKI 

^cou/W^ > ^ 


iO~/ZCOMPj 
4000  E>EC^ 


CALCLwATE  a t ,0UARANTEEIN(S|  that 
*t  < •At  MAX 


At  = t^-tx  

MPAC-d  -■ TDECd-TETo 


At  IEj  the  Time  interval  BETWEE^4tlTHE 

CURRENT  time  AE.  UEED  IN  'NTEOiRATIOM 
uOOP  AMDtz  ,THE  UPPER  LIMIT.  THE  VALUE  ti 
IN  TETq  IE  INCREMENTED  BY  ^ TWICE  CORRE6 
PONDlNCi  TO  POINTS  j = EAKJD  B . SEE  SH.  25 


/5CNA(aRE^ 

' FORCE  SI^nX 
ACRE-EMENIV 

\ FC-3r50/ 


the  subroutine  takes  the  double 

PRECISION  VALUE  IN  MPAC  AND  FORCES 
siaiN  agreement 


SHIFT  MPAC  LEFT  8 
PLACES  TO  SCALE 
At  AT  AND 

STORE  IN  DT/Z.^ 


STORE  At  AT 


'HIS  CAN  ALSO 


BE  CONSIDERED  AS  A t/^ 


NEXT  SHEET 


MIT  INSTRUMENTATION  LAR 
CAMBRIDGE,  MASS. 


DRAWN  £ 

PRGMR  0^ 

ANALST 

DOCMR 


APOUO  GUIDANCE  AND  NAVIGATION 

Orbital  Integration 

LUMINARY  ooeuMENi  no. 
ID  FC-3355 


IQniEjE2£ll 


FROM  PRECEDIM<^  SHEET 


CLEAR 


THIS  IS  FIRST  PASS 
THROUGH  integration. 

CLEAR  FLAG  TO  INDICATE  ON  SUBSEQUENT  TESTS 
THAT  ROUTINE  HAS  ALREADY  MADE  THE  FIRST 
PASS  THROUGH  INTEGRATION  . 


YES 

FORM  t 

PLd-" TDECd-TETd 



- 

FORM 

■4  At 

MPACd  — DT/Zd 
shifted  and  rounded 

DO  NOT 
1 NTEGRATE 


tj-ti  IS  THE  TIME  INTERVAL  BETWEEKI 
PRESENT  TIME  AE)  USED  IN  INTEGRATION 
LOOP  (TET)aND  upper  LIMIT  (tdec).  in 

POO^tt  equals  current  real  time, approxI 


DT/E-d  contains 


CURRENT  TIME  IS 
NOW  AT  LEAST  4 At 
SINCE  LAST  INTEGRATION 
SO  PROCEED  WITH  YES 
integration 


NO 


(5 


TIMES.TEP 


) 


IT  HAS  NOT  been  AT  LEAST  4 
TIMESTEPS  SINCE  LAST 
INTEGFIATION  so  EXIT  WITHOOTt 
DOING  AMY  integration 


PERFORM  A SERIES  OF  TESTS  tq  DETERMINE 
IF  RECTI  FICATION  is  REQUIRED 


Note:  MIDFLAG 
Is  always  clear 


MIT  instrumentation  LAB 
CAMBRIDCE.  MASS. 


DRAWN  . 
PRGMR  ‘L'l 


ANALST 


OtVAA  C' 


APOUC  GUIDANCE  AND  NAVIGATION 


Orbital  Integration 


LUMINARY 

ID 


DOCUMENT  NO. 

FC-3355 


From  Preceding  Sheet 


nVIOONFLAG^ 


LUNSPH 


MPACj^  2 ^(PLlOj^)-RSPHEREjj 


MPACr 


tPQFLAG 


MPAC^ 


RECTEST 


POSWITCH 


/ LUNPOS  \ 
/ Calculate  \ 
position  of 
sun  and  moon 

\ FC-3345  / 


LUNPOS  = LSPOS 

^P“*'  ]yiPACQ=ground  elapsed  time 

Output: 

MPACy^=i:g]^^  position  of  moon, 

^ 38 

PL2y=rgg  position  of  sun,  2 


RPQV, 


-MPAC, 


Next  Sheet 


iDOSWITCHl 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


Orbital  Integration 


DOCUMENT  NO. 


LUMINARY  ID 


FC-3355 


SHEH  6 0F49 


From  Preceding  Sheet 


Next  Sheet 


Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


DRAWN 
PRGMR 
ANALST 
DOCMR 
APPR'D 


APOLLO  GUIDANCE  AND  NAVIGATION 


Orbital  Integration 


DOCUMENT  NO. 

LUMINARY  ID  FC-3355 


REV  ISHEH  7 Of  49 


FROM  PRECEDlMCt  -SHEe-T 


c 


1MTG,RATE 


THI-b  l€>THE  EMTRV  -S>EQUe.MC.K.  FOR  I M I T I /kL  I Z.IM& 
l-OCA>T>OMe>  FORTHE  FIR«=,T  THROUC^H  THE 

IMTEC^RATION  LOOP.LjOCA^TIOM'S  ^REEiET  UP  FOR 
IKITEORRTING,  the  eTAvTE  VEC.TOR  SINCE  THE 
STATE  VECTOR  IS  ALWAYS  INTESiRATEO  FIRST 


ZYv- 


YVv  ■ 


-TNUVv 

-TDELTAVv 

(® 


STORE  ’Ll, S IN  WORK-INS  STORA<SE  PRIOIR. 

TO  intesratins  the  state  vector 


I i 

■=  1 

DIFEGCNT— O 



ALPHAVv  — YVy 

_ -K--  O 

Hd 

DPZEROo 
1 

INITIAL-IZ-E  TO  indicate  THE  STATE  VECTOR 
AND  NOTTHE  W-MATRIX  IS  BEING  INTEGRATED 

THIS  IS  the  entry  POINT  FOR  INITIAL  I ZING  -O  - 
CATIOMSj  prior  to  making  three  passes  THR- 
OUGH the  INTEGRATION  LOOP  ^FOR  j =X,Z,S).THE 
VECTOR  BEING  I NTEGRATED  OVER  ATI  ME  INTER- 
VAL OF  At  IS  either  A STATE  VECTOR  ORA  VEC- 
TOR INTHE  W-MATRIX 


.NITIALIZ.E  j 

J takes  on  the  values  1,ZjS  correspond  - 
iNG  totheleft  point,  midpoint,  and  rightI 
POINT  OF  AN  NTERVAL  OF  length  At  . 
DIFEQCNT  TAKES  ON  THE  VALUES  C,-1ZD, 
-ZSD 


INITIALIZE  oAJ 

IS  the  estimate  of  ^ USED  ON  EACH  OF 
THE  "^HREE  PASSES  "THROUGH  THE 
integration  loop 


INITIALIZE  A- . 

A TAKES  ON  THE  VALUES  O,  . A^  CORRES- 
PONDINGTO  the  l,EFT  point, ivIlD  POINT, 
AND  RIGHT  point  VALLE  OF  THE  INTERVAL 
t 


integrate  a vector 

FROM  THE  w- MATRIX 


ACCOMP 


NEXT  eHEET 


MIT  INSTRUMENTATION  lAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Orbital  Integration 

DRAWN  f-  >y!j.tieL- 

PRCMR 

LUMINARY  DOCUMENT  NO. 

ID  FC-3355 

ANALST 

OKMR  CT'IV\  1 

APPR'D'emx  T/jIaa' 

JiV}> 

REV  ISHEtT  10)F4P 

FROM  PRECEDING  SHEET 


O-p  IS  THAT  PORTION 
OF  THE  SECOND 
DERIVATIVE  DUE  ( 
TO  THE  ATTRACTION 
OF  THE  PRIMARY 
BODY,  CONSIDERED 
AS  A POINT  MASS 


/GAMCOMP  \ 
/CALCULATE  \ 


INPUT 

l.BETAVv  =5^=1^-^^ 
Z.  ALPWAVy  =Mjo.  = 
3.ALPHAMB=*<.j  =S 


OUTPUT 

1. FVv  = Q-p 

2. BETAVy=^ja  =»Cej>UNIT=s  Ur 

3. BETAMD=>gJ=|gj|  =|r( 


ALPHAVv  MPACy 


SAVE  = (Sj')UNIT=  Mr^ 


alphaMo-^mpaco-^betamo  save  Bj 


Note:  MIDFLAG  ^ 

is  always  clear  midflag 


set:  include  solar  perturbations 


NO  SOLAR 
PERTURBATIONS 


NEXT  SHEET 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


DRAWN  f ■ . 

PRGMR 

ANALST^ 

OOCMR 


AP0U.0  GUIDANCE  AND  NAVIGATION 


Orbital  Integrati  on 


LUMINARY 

ID 


DOCUMENT  NO. 

FC-3355 


FROM  PRECEDING  SHEET 


^OBLATE  ^ 




X2  

1 

PBODY 

SET  PUSV 

POINTER 

1 1 

-1  LIST 

TO  ZERO 
— 

PBOOY  s 


/ O FOR  EARTH 
\ 2 FOR  MOON 


r IS  THE  MAGNITUDE  OF  *’“HE  LATEST 
ESTIMATE  OF  THE  PRECISION  POSITION^ 

IT  EQUALS  PJ  I“dp  'S  THE  RADIUS  OF  RELEVANCE 
OF  THE  PRIMARY  BODY.  iF  THE  SPACECRAFT 
iS  OUTSIDE  OF  THIS  SPHERE  THEN  THE 
ACCELERATION  iS  IGNORED. 


YES 

SPACECRAFT  IS 
OUTSIDE  SPHERE 
OF  RELEVANCE 


NBRANCH 


DO  NOT 
CALCULATE 


9r 


Ap 


NEXT  SHEET 


MIT  INSTRUMSrnATION  LAB. 
CAMBRIDGE.  f.\ASS. 


DRAWN  ^ 


PRGMR  «V  

ANALST 


DXMR 

lAPPR'D 


APOllO  GUIDANCE  AND  NAVIGATION 


Orbital  Integration 


LUMINARY 

ID 


DOCUMENT  HO. 

FC-3355 


JSHEET  X&0f4! 


FROM  PRECEDIKIG, ‘SHEET 


MOOMFLA6 


COSPHIE 


STORE  U 

jp  'y-r 

PLOv-« — 

^LPHAVv 

COS  p ^Ujp(Z) 

CC5PH  l/t^  (alPHA..V+4)^ 

(p^l 


UOAC  Uz  =(0,0-1) 
MPACv  ■" — Z UNITv 


INSIDE  EARTH'S  SPHERE 
IF  INFLUEMCE-'-AUIU- 
'_ATE  OOUATITUDE  <p 
RELATIVE  TO  EARTH 
COORDINATES. yje  t^) 

IS  e-compomentof 
VECTOR  Ujp  = 

IS  equivalent  TOTHE 

VALUE vyHERE 

Uz  =(0,0,1) 


INSIDE  -UMAR  SPHERE 
OFINFL  uEI  1,  E. calcu- 
late ' 0_A-TlTUCE  i> 
relative  T—  MCOi-l 
OOCRDHIATE-.. 


STORE  TIME  OF  VALI PITY  t 

PLfeo  -• TET^ 


-S/Sd  ! 


/ R-TO-RP  \ 

/convert  TO  UNIT  \ 

(’vector  expressed  in 
\k/IOON  COORDINATES/ 
\ FC-3340  ■ 


SET  M PAC  # O AS 
FLACi  TO  subroutine 
R-TO-RP  FOR  MOON 
COORDI  NATES 

INPUT: 

l.PLOv  = UNIT  V ECTOR 
\ IN  REFEKEI  I E 

'■  ..  ''ORETNATES 

E.PLfep=TlME  OF 
VALIDlTr 
OUTPUT; 
l.NPACv  = L, 


STORE 

URPVv-« — 


-MPACv 


FORM  C'*') 

V [(0.,0,-l)  + 504LMy  X (0)0/l)]><  MMATRIX  „ 


X=(0;0,i>4„x(0,0;i); 

'“F  ■’’HE  ML  IM  _ - 
SRATlON  VElTOR-P 
PAC  LOADED  AMD 
CONSIDERED  CON - 
STAN  IT 


- 2 ' |T I;  0/  0)t  5 04  L X (l,  0;0 J]  X MMATRiX „ 
2®{(1;0;0)  ■l■504LM.^x(l;0;0)|x  MMATRIX^j 


COMTERM 


STORE  AU*. 
UZ-v  -4 MPACv 


NEXT  SHEET 


Uz  ISA  UNIT  VECTOR  IN  THE  riREC-TIOi  i OF 
THE  AXIS  OF  rotation  EXPRESSED  IN 
EITHER  EARTH  COORDINATES  OR  MOON 
COORDH-IATES 


MIT  INSTRUMEMTATION  LAS 
CAMBRIDGE.  MASS. 

DRAIVN  f ^ 

PRCMR  

ANALST 


APOLLO  GUIDANCE  AND  NAVIGATION 


Orbital  Integration 


LUMINARY 

ID 


DOCUMENT  NO. 

FC-3355 


FROM  PRE.eEDIM6« 


NEXT  -t^HEET 


MiT  INSTRUMENTATION  LAB 

CAMBRIDGE.  MASS. 

DRAWN  f- hrlii^tu 

PRCMR 

ANALST 

! n!l!!!fVliIS79HREfl9 

WISS 

APOLLO  GUIDANCE  AND  NAVIGATION 


Orbital  Integration 


LUMINARY 

DOCUMENT  NO. 

ID 

FC-3355 

FROM  PRE.CED1MG?  'bHEET 


FORM 


4r''p 

J'»P  / 


r 4.  P ' - ^ 

r ^ P4  - 


UPACD-*-t«^P’^C;D/ALPH^\MD  PL-4-o 


te(fe)p,' , p,/]  ^^1  ^ jgip/is'! 

^ ('15^  Pb'  + (!:i\  /JsMr 

i2P  iti  VjTTT 


UPACd-4-MFACo  • (^J5RE^^.*X^)c>/AJ.PHAMJ 


= l»>‘5.'o4.Efe  @ 2= 

FOR  earth 


s . 3067493316  ^ iO ' ' 
' @2'*'®°FOR  MOON 


tveCv-^(mpaCd+  puEdI  alphaVw 


FORM  ^|3£lE.  p^/ 

J J 

MPA<lt3^0+PE'^/J^»X^)D  ■ PLaJ 
■shifted  I? 


mpaco^mpacd  / alpha\Mo  ■*-  pi_Ed 
(®  e'* 


>'°«“  jS^/  '- 

- _ 

MPAC.d'^MPACd'(^^RE/JE*XE)d/ALPHAMo 
EH1FTE0(®  2.* 


form  (^)  Pb'  - P^]  Oz 

MPACy-^^PACo  4-  P^Od|]  -IZ-v 
^.HIFTEOC®  E^ 


SlEXT  SHEET 


MIT  INSTRUMENTATION  LAB. 

CAMBRIDGE,  MASS.  

DRAWN  f-  'ntaiA^  i/f/?p 

PRGMR  

ANALST  

docmr  'gtVY^G^  ~ M2.  _ 

APPR'D  P {VNA  CvdiA  l*7/;o  BEV 


APOLLO  GUIDANCE  AND  NAVIGATION 

Orbital  Integration 

UMINASY  1 DXUMENT  NO. 

ID  FC-3355 

^ [sheet  18DF. 


FROM  PRECEDIkie.  *5HEET 


FORM  KiUr  - Uz: 
TVECv*^TVEOv  — MPAOx 


KIORMA^LIXE  r 


MPAC  D -• ALPHAMd 

KJORMAUZ-E  AT 


THE  NORM AUIZ.|NG>  VALUE  - m 
1‘i  ■ETORED  m ^<1 


FORM  

MPACd— (MPAOd')'^ 


KJORMAUIZ-E■A^JC  ETORE 

R’LO  c — M PAO  c 

K.ir'Pi.^AL'ZEC  AT 


-HE  MORMALlZlN<i,  value  -H 


ll6“4*n-i^  IS  STORED  1 KJ  ^>1. 


FORM  _j^rp2A6.f^  / 2 

PAO  (^-^(JEREOOO,"  XE)d  / MPACd  ''FP^p^p- 


p 1.7EE011E>=?  >‘  lO^’- 
S-7Z  FOR  earth 

iO*^^  &-<^0  FOR  MOOM 


~ORM  [KiUr  ■ K^U^]  ^ “ 


_p/^  TH(e>  FOR  Tl-(E. 

^ ^-3  earth  or  twe  major 


MPACv  TVECv  • t^F’A.Cc 


part  OF  FOR  THE 

MOOri 


CLEAR 
OVFI  ND 
IF  SET 


I FORM  -3Tn,-n 

|xi  ■*  ^sr" 


f 

NEXT  SHEET 

, , _ ,^  , . 'l  '1zP''p\A  p 

lUr  74 ^ 


fe  •S-l?)'’-'  • "*']  -fe(Tf‘'  ‘ 

V — I ^ ^ 

P-s'  * -i-iP  Pa'  +Jzp(^^  'J4p(7p^F4'  <■  j 

JXp  j^'+i  y,r  - F‘4.'' 


MIT  INSTRUMEIITATICKv  LAB 
CAMBRIDGE,  MASS. 

DRATVN  ..  f 4i 

PRCMR  lA/StfeZ,^ 

AMALST 

DocMR-^fmC^lj^  £«/: 

APPR'OV.WVl  k a,! 


APOLLO  GUIDANCE  AND  NAVIGATION 

Orbital  Integration 
LUMINARY  “OCUMENI  no. 


A — 1»/ E 7/?i ID FC-  3355 

...t.k  te/zT/iSN  ISHEET  19DF4 


FROM  PRECepiNG  SHEET 


^j=£j+  ia-tiM 


O-^OI^p  + ZONAL  OBLATE 


'OVERFLOW^ 


J NO 



FVy-^ ^MPACy 

IF  OVERFLOW  OCCURS  DUE  TO  EXCESSIVELY 

LARGE  ACCELERATIONS,  SO  BACK,  DO  A 

GOBAQUE  KEPLER  UPDATE ; RECTIFY,  AND  TRY  ASAIN 

^ SH.23  J 


:moonflag 


In  branch  I the  following 

— rTTTT CALCULATIONS 

VALID  FOR 
MOON  ONLY 


forrr.  5(X^^-Y^^)a^ 


PL2y-« — URPV+S)o»  - URPVo*'|a LPHAVy 

‘‘scaled  g B® 


eau-lvaLenl  to  IHl  -4-  ■ !Lm 

^ r -M  ^ yZ 

PL2y-« PLay+  URPVp-PLBEy 

SCALED  © B® 


ec),uLvaLen,t  to  ywA.  1,^-t 

PL2y-< PLEyT2^(URPVT2)o  (PL32  y X UZy) 


MPAC,j>« COSPHl/Bj 


NEXT  SHEET 


MIT  INSTRUMEMTATION  lAD 
CWABRIOGE,  r.\ASS. 

DRAWN  r,  yyvTtti. 

PRGMR 

ANALST 

DOCMR^fYV\^LtA,, 

(JtVh 

APPR  De(>[V^  ^^Ar.y, 

APOLLO  GUIDANCE  AND  NAVIGATION 

Orbital  Integration 
LUMINARY  “ocuMENT  no. 
ID  FC-3355 

REV  ISHEO  200f  4! 


FROM  PRECEDING  SHEET 


. GOBAQUE 


lTDELTAVv|  = 0^ 


<50BA,QUE  I^EMTERED  IF  EITHER". 

1. OVERFLOW  OCCURED  IM  CqA^MCOWP  WHEN 
the  “^lECOND  DERIVATIVE  INCREMENT  WA^>  ADD- 
ED TO  fj‘  , OR  j 

OVERFLOW  OCCURED  IN  OBLATE  WHEN!  Sdp 
WAS  ADDED  TO  ip. 

IN  EITHER  CASE  DO  A KEPLER  UPDATE  ^RECTI- 
FY, AN  D e,0  BACK  AND  INTEGRATE  again 
BUT  NOW  with  anew  REFERENCE  CONIC  .HAY 
ING*  ANEW  reference  CONIC  SHOULO  EL- 




O 

z 

STOKE  A. 

PLb-« MPACd-« Hp 

SHIFTED  right 
(S  ^28 

r 

t D - t 

Z1  ’ 

TAU-d  TC 

- mpaCd 

Tf  ^ --A. 

TETo  - PLo 


to  = DESIRED  transfer  TI  ME.  IT  MUST 
BE  REDUCED  BY  A,  TO  MAKE  TIME  COR- 
RESPOND TO  THE  PREVIOUS  VALUE  OF 
j “SINCE  RESULTS  WERE  VALID  FOR  THAT 
VALUE  OF  J (i.E.  "fherE  was  no  OVER- 
FLOW) 

t^lG  REDUCED  BY  A TO  MAKE  IT  AGREE 
WITH  TIME  OF  VALIDITY  OF  RCVy  ,VCVy 


/ KEPPREP  \ 
■'do  a KEPLER  iN-\ 
tegration  of  CJ 

\ V TC  T I £ On  / 


/ RECTIFY  ^ 

/CEFINE  a niewref-  \ 
/ekence  conic  AI  id 
\z.erothe  deviation^ 
\ SH  43  / 


INPUT 

foFOR  EAHTH 
1 PBODY  = ■'l 

(e  COR  MOON 

2. RCVv  = r'Ct'zi) 

3. VCVv=iL'(t'ti) 

4. XK  EPq  = X' 

5. TAU.  =tD5CES  redtime 

I clear  for  E 
LSET  for  mo 


3R  MOON  1 ■ Vy  - £ (Do) 

. cvcvv  = y(tr) 

^OkIYER<5ED 

reotime 

4.XPREVp=X=XKEPo 
CLEAR  FOR  EARTH 
SET  FOR  MOON 


note;  output  is  for  entire  kepprep  and 
xeplerm  computations(see  fc-23'1o; 
conic  S-SROUTINES) 

the  new  reference  conic  is  based  on  the  output 

OF  THE  KEPLER  UPDATE  OF  THE  STATE  VECTOR 
AND  THE  deviations  CALCULATED  BY  PRECISION 
INTEGRATION 


SET  \ 

RPQFLAG 


THIS  INDICATES  THE  VECTOR 
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\ VECTOR  / 

\fc-3350/ 


csm  state 

VECTOR 
WAS  INTE- 
GER AT  ED 


G,RP^F>c 


SET  UP  RESTARTS  TO  SCHEDULE.  MEXT  LOCATlOty 
AS  A JOB  WITH  SAME  PRlORTV  / 


NEXT  SHEET 
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IHTICTKCTfal 


PROW  PRECEDIMG,  ^HEET 


RECTOUT 


THie  ROUTIME  DOEe  a.  RECTlFtCATlOM  AsKiO 
^TORE-5  THE  OUTPUT  IKJ  THE  PU-SW  I 


t)ET  PU-S>H  U^T 
POINTER  TO  XERO 


/ REOTIFV  \ 
/define  a MEW  REPA 
/eRENCE  conic  A.NO 
^EROTHE  DEVIATIOH^ 
\ 5H  43  7 


INPUT 

1. RcVv  -Xcow 

2. vcvyv  = Ycok4 


OUTPUT 
I.XC.  = PBODY 
^,RRECTv  ’Sc  =XcoM  ^ & 


3.TDELTAVv«£  ^>VRECTv 


4.TNUVv=  l; 


PLOv  -^RRECT^  BHIFTED^t^’ 
PLfov  — VRECT^, SHIFTED  @Z? 
PLl-Z-o-^ — TETp  ® 

PUl-^V-^ — RRECTy^ 

PuZO  V •^— VR  ECTv  ^ 2:7 
PUZ6D-^(wueARTH  # 


A.RCVv  -rcor^^NEWTo 

5. RCVv  *ycoM 

6. TOELTAVv=  S =(0,0,0) 
TTnuVv  = i;  = (0,0,0) 
e.TCo  -o 
«3.XKEPc>-V  = 0 


^TORE  INTEORATION  OUTFjT  N 

Push  ui'^T.  T Hi's  inc; .oe^s  ConYc 

t-0 . 


moonflag* 


earth 

primary  body 


MOONl 

PRIMARY  BODY 


COME  HERE  OiRE-TLt'  FROM 
POOMCHK  IP  t 4* -^A.t 


SET  PuSH  LIST 
POINTER  TO  :EERn 


"uRN  OFF  OVERFLOW 
NDICATOR 


1 ALLOW  UPDATE  OF  DOWNLINK 

AVEMIDSW  TM  STATE  VECTOR 


CLEAR 

PRECIFLG 


CLEAR 

STATEFLG 


QPRET-* RETURNI 


I NT  WAKE 

- 3 3 jd  0 


STORE  RET  JRN  AODKESSi  INTO 
QPRET  ^OINITwAKE  CAM  RETURN 
TOCALUll-JG*  ROUTINE  ©Y  U©INLi 
THE  RVQ  mSTRUCTlOM 

RETURN  TO  C.AULIN<3i  ROUTINE 
VIA  INTWAvKE 
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ID 


OXUMEIJT  NO. 
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COA.M  1MTE.RGRAsT«OM  of  W“COUBLE*DOT 
(the  W-M/VTRlX).ROUTl  HE  eALCUl-ATE'3  A 
VALUE  OF  THE  ACCELERATIOH  a.j  --^^(1) 
BEFORE  GiOlHCi  THRU  A HY'^TROM  CALCUL.- 
ATIOH  .THE  -sUB-=bCRiPT  j CORRE^- 

POM05  TO  L-ERT  ROIHT^M.ID  POIHT^OR 
R1C5HT  point.  SU&*=.CR1  PT  t REFERS  TO 
VECTOR  IHTHE  W'MATRIX 


/(P_^  v^£e_OR 

BETAMp-^^C^UEARTH  # XZ)p 


I FOR  earth 
. FOR  MOOH 


/ DOW. . . 1 ^ 

AiET  ACCELERATION 
DUE  TO  PRIMARY 
\ BODY 

\ '5H42  ; 


IHPUT 

l.AuPHAVv  = U;i,Ct)  l.K 
^.BETAV.o  =//p 
3.  XI  ‘ VECTOR  POI  MTER 
FOR  VECTA&v(X1=0 
IN  -SUNDAMCE) 


OUTPUT 
l.MPACv  = Qro 


- g P 

^ MPACv 


Note:  MIDFLAG  is  always 
clear 


INCLUDE  SOLAR 
PERTURBATIONS 


POI  M T at  I 

- e IVECTCR 
VECTABv 


- P BODY 


NSRAKJCH 

22/ 


HO  HEED  TO  CAlCUL-' 
A"^E  BECOHD  COM  PON 
eht  a.^  .GO  thru  A HY- 
•bTROM  CALCJ-ATIOH 
FOR  A yA-jE  '^‘=  j = 


i ^ OR  

IbETAMcj-*- (v  L E ART  H -E  » y '2.)^ 


_ Co  FOR  ^ 
FOR 


•^OON 

? earth 


/ DOW.  ..1  \ 

/(jiET  ACCE-ERATlO»4 
DUE  TO  THE  BEC- 

\ okjdary  body 
\ 5H  41  7 


INPUT  OU'^P'JT 

L.AUPHAVv=aii,(t)  L.MPAC  ^ 
t.BETAMcs  -JJcK 
3.XL  - VECTOR  POIHTER 


CUTGIDE  LUNAR  BPhERE 
OF  mF-UEKJCE 


• NEI  DE  lunar 
SPHERE  OF 

, nfluemce 


"■ ' "■  I G -5  S AC  “ 

SHIFT  2,:^  RI<2.HT  fe  ' 

|p.^CES  TO  Scr-E^Cyr-j  T^-HS 

I MOOM 


^ a. ^.(t) 


-FVv  +•  MPACv 


MBRANCH 

SH  22/ 


■^HRU  A MYBTROM  CALCUUAsTlOH 
FOR  A VALUE  OP  j 
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THE  RECTI  FV  •SUBROUTINE  l-S  CRUUED  BY  THE  INTECRATIOM  ROUTINE  AND  OCCA®  lONAULV 
BVTHE  MEA'BUREWENT  INCORPORATION  ROUTINES  TO  DEFINE  ANEW  REFERENCE  CONIC. 


RECTIPY  +13D; 


X 


)L  COM  - )Lo 

VCVv-^ WPAC^, 


6.  =:  (0,0,0) 
= (0,0,0) 
TT  = O 

X = o 


I^XKEPc 


-EEROVECvj 

-ZEROVECv 

LEROVECo 


ZEROVECr 


THI-S  DEFINES  THE  NEW 
CONIC  VELOCITY  VECTOR 


ZERO  the  deviations.  ^TI  me  SINCE  RECT I F 1C  ATl  ON  r 
AIJC  UNIVERSAL  VARIABLE  X. 
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LUMINARY 

ID 
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FC-3355 


|shelt43  of49 


ORIGCHNG)  CHANGE  THE  ORIGIN)  OFTHE 

N — y coordinate  system 


ORI&EX  — QPRET 


SAVE  RETURN  ADDRESS 


/ RECTIFY  \ 
/define  new  refA. 
/eRENCE  conic,  ZER(« 
\the  deviations  / 

\ SH43/ 

•^CON  ~ -^o  ~ -^COW iTpQ 

RCV^-*-  RRECT^-^RCV^-RPgv 



<^OONFLAG^> 

SET^I 
V = — v 

_ _LP9 “EM 

MPACy — (mPACv) 

I PL  y-*  MPACy  I 


EARTH  IS  PRIMARY 

V = V 
- P<J  - EM 


MOON  IS 
PRIMARY 


I ION  ^ P9 

VCV-.-VRECT^  — VCV^  -PL.^ 
@ Z’’/  2 F 


QPRET— — ORIGEX 


SET  UP  RETURN 

address 


^MooN  flaC; 


SETMOON 


CLR  MOON) 


SET  ■ 

MOONFLAG 


RETURN/ 

\ / 

\(Spret/ 


SET  UP 
FO  R 
MOON 


CLEAR 

MOONFLAG 


1— 

PRIMARY 

1 

L 

PBODY  2 

I 

body 

PBODY— 0 

R ETURN  j 

\ / 

\QPR£t/ 


SETUP 
FO  R 
EARTH 
PRIMARY 
BODY 
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SUBROUTINES  CALLED  WHICH  ARE 
FLOWED  ON  OTHER  FLOW  CHARTS 


SUBROUTINE 

NAME 

FLOW 

CHART 

DESCRIPTION 

WHERE 

CALLED 

SGNAGREE 

FC-3150 

FORCE  SIGN  AGREEMENT  OF  NUMBER  IN  MPAC 

SH.  3 

SIGNMPAC 

FC-3150 

LOAD  MPAC  WITH  SIGNUM  (MPAC) 

SH.  4 

R-TO-RP 

FC-3340 

CONVERT  A VECTOR  FROM  BASIC  REFERENCE 
COORDINATES  TO  MOON  COORDINATES 

SH.  16 

NOTIME 

FC-3350 

SIGNAL  NOT  ENOUGH  TIME  FOR 
INTEGRATION 

SH.  37 

KEPLERN 

FC-3360 

KEPLER  ROUTINE  COMPUTES  THE  NEW  CONIC 

STATE  VECTOR 

SH.  32  i 

1 

ATOPLEM 

FC-3350 

DO  UPDATE  OF  PERMANENT  LM  STATE  VECTOR 

SH-  34,39  I 

ATOPCSM 

FC-3350 

DO  UPDATE  OF  PERMANENT  CSM  STATE  VECTOR 

SH.  34,39  i 

INTEGRV2 

FC-3350 

■ 

ENTRY  POINT  IN  INTEGRATION  INITIALIZATION  FOR 
NEXT  PASS  THROUGH  INTEGRATION  WITH  NEXT  t 
VALUE 

SH.  36  ! 

} 

j 

LOADTIME 

FC-3150 

LOAD  TIMEl  AND  TIME2  (CURRENT  TIME)  INTO  MPAC 

SH.  37  ■ 

INTWAKE 

FC-3350 

ENTRY  POINT  FOR  WAKING  UP  ALL  INTEGRATION 
STALLED  PROGRAMS.  WHEN  PRESENT  INTEGRATION 

IS  COMPLETED 

SH.  40 

j 

LSPOS 

FC-3345 

CALCULATE  POSITION  OF  SUN,  MOON 

SH  7.12  j 

LUNPOS 

FC-3345 

CALCULATE  POSITION  OF  MOON 

SH.  6 

ALARM 

FC-3140 

LIGHT  PROGRAM  ALARM  LIGHT 

ail.  38  ' 

POODOO 

FC-3140 

TERMINATE  MAJOR  MODE  IN  RESTART  j 

SH.  23  ' 

i 

iiLA.as 


NAME 

(BIT.  FLAGW'ORD) 

MEANING  WHEN  SET 

MEANING  WTIEN  CLEAR 

WHERE 

SET 

WHE  RE 
CLEARED 

[ WHERE  * 
1 TESTED 

VINTFLAG 

INTEGRATE  THE  CSM 

INTEGRATE  THE  L.M 



' sii.  34, 

(3.  3) 

STATE  VECTOR 

STATE  VECTOR 

39 

DIMOFLAG 

INTEGRATE  THE 

DO  NOT  INTEGRATE  THE 

sii.  36 

! sh.10,13 

(1.  3) 

W- MATRIX 

W-  MATRIX 

1 33 

D60R9FLG 

W-.MATRIX  IS  9X9 

W- MATRIX  IS  6X6 

SH.  34 

(2.  3) 

1 

STATEFLG 

UPDATE  PERMANENT 

DO  NOT  UPDATE 

SH.  37 

SH.  2, 

j SH.  3 9 

(5.  3) 

CSM/LM  STATE  VECTOR 

PERMANENT  CSM  .'L.M 

40 

STATE  VECTOR  ; 

i 

1 

[ 

QUITFLAG 

DISCONTINUE 

CONTINUE  INTEGRATION 

1 SH  2 

(5.  9) 

INTEGRATION  AT  START 

OF  NEXT  TIMESTEP 

MIDFLAG 

INTEGRATE  WITH  SOLAR 

INTEGRATE  WITHOUT 

sh.2 

SH.  2 

sh.5,11. 

(13.  0) 

PERTURBATIONS 

SOLAR  PERTURBATIONS 

i 

41  ; 

PRECIFLG 

CSMPREC  OR  LEMPREC 

INTEGRV  OR  INTEGRVS 

SH.40  ! 

SH.  4 

(8.  3) 

CALLED 

CALLED 

1 

1 

1 

NEWIFLG 

FIRST  PASS  THROUGH  . 

SUBSEQUENT  PASS 

; SH.  5 

1 

1 SH.  5 

( 13.  8)- 

INTEGRATION  LOOP 

THROUGH 

INTEGRATION  LOOP 

JSWITCH 

■ INTEGRATE  A VECTOR 

' INTEGRATE  THE 

SH.  34 

SH.  9 

SH.  9,28, 

(14.  0) 

1 FROM  THE  W- MATRIX 

; STATE  VECTOR  i 

33 

POOHFLAG 

IN  PROGRAM  POO 

NOT  IN  PROGRAM 

SH.4 

(15,3) 

POO 

i 

FLAGS  (CONTINUED) 


NAME 

(BIT,  FLAGWORD) 

MEANING  WHEN  SET 

MEANING  WHEN  CLEAR 

WHERE 

SET 

WHERE 

CLEARED 

WHERE 

TESTED 

MOONFLAG 

INSIDE  LUNAR  SPHERE 

OUTSIDE  LUNAR  SPHERE 

SH.44 

SH.44 

SH.  6. 

(12,0) 

OF  INFLUENCE 

OF  INFLUENCE 

12, l4. 

20^32, 

RPQFLAG 

CALCULATE  THE 

E)0  NOT  CALCULATE  THE 

SH.  23 

SH.  14 

SH.6,7 

(15,8) 

VECTOR  RPQ 

VECTOR  RPQ 

MIDAVFLG 

INTEGRATION  CALLED 

INTEGRATION  NOT 

SH.  33 

(2.9) 

BY  THE  MIDTOAV 

CALLED  BY  THE 

ROUTINE 

MIDTOAV  ROUTINE 

REINTFLG 

RESTART  THIS  ROUTINE 

DO  NOT  RESTART 

SH.34, 

(7,10) 

IF  STALLED  AND 

THIS  ROUTINE  IF 

39 

RESTART  OCCURS 

STALLED  AND  RESTART 

OCCURS 

MIDIFLAG 

INTEGRATE  TO  A 

INTEGRATE  TO  CURRENT 

SH.  37 

(3,9) 

SPECIFIED  TIME 

TIME  PLUS  10  SECONDS 

STORED  IN  TDEC 

ORBWFLAG 

W -MATRIX  IS  VALID 

W-MATRIX  IS  INVALID 

SH.38 

(6,3) 

FOR  ORBITAL 

FOR  ORBITAL 

NAVIGATION 

NAVIGATION 

RENDWFLG 

W -MATRIX  IS  VALID 

W-MATRIX  IS  INVALID 

X 

CO 

CO 

(1,5) 

FOR  RENDEZVOUS 

FOR  RENDEZVOUS 

NAVIGATION 

NAVIGATION 

AVEMIDSW 

PREVENT  UPDATING 

.4.LLOW  UPDATING  THE 

SH.40 

(1.9) 

THE  CSM  DOWNLINK 

CSM  DOWNLINK  DATA 

DATA  RN,  VN, 

RN,  VN,  PIPTIME 

PIPTIME 

L 

DISPLAYS 


VERB- 

NOUN 

TYPE  OF 
DISPLAY 

DESCRIPTION  OF  EACH  REGISTER 

WHERE 

EXECUTED 

ALARM 

PROG  ALARM  LIGHT  ON;  Rl,  R2.  R3.  NOT  AFFECTED 

SH.  38 

ERASABLE  LOCATIONS  USED 


AGC 

TAG 

GSOP 

SYMBOL 

MEANING 

ENGINEERING 

UNITS 

DT/2^ 

t 

TIME  INTERVAL  FOR  ONE 
INTEGRATION  CYCLE 

CSEC 

CSEC 

TDEClj^ 

**2 

TIME  TO  INTEGRATE  TO 

CSEC 

CSEC 

228 

RCVy 

—con 

CONIC  POSITION  VECTOR 

M 

M 

229,227 

VCVy 

V 

-con 

CONIC  VELOCITY  VECTOR 

M/CSEC 

M/CSEC 

2’  2^ 

TETq 

t 

TIME  OF  VALIDITY  OF 

STATE  VECTOR 

CSEC 

CSEC 

228 

RRECT  Y 

r 

— o 

POSITION  VECTOR  AT 
RECTIFICATION 

M 

M 

229,227 
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ERASABLE  LOCATIONS  USED  (CONTINUED) 


AGC 

TAG 

GSOP 

SYMBOL 

MEANING 

ENGINEERING 

UNITS 

AGC 

UNITS 

AGC 

SCALING 

VRECTy 

VELOCITY  VECTOR  AT 
RECTIFICATION 

M/CSEC 

M/CSEC 

2'^  12^ 

TDELTAVy 

6 

POSITION  DEVIATION 

VECTOR 

M 

M 

222/218 

TNUVy 

VELOCITY  DEVIATION 
VECTOR 

M/CSEC 

M/CSEC 

28/2'^ 

TCq 

‘21 

TIME  SINCE  RECTIFICATION 

CSEC 

CSEC 

228 

XKEPj^ 

X 

UNIVERSAL  VARIABLE 

m1/2 

m1/2 

2 1^/2 16 

y V 

V 

6 

INTERMEDIATE  VALUE  OF 

6 

M 

M 

322  ^318 

ZVy 

w 

INTERMEDIATE  VALUE  OF 

J/ 

M/CSEC 

M/CSEC 

28/2  "“1 

DIFEQCNT 

j 

SUBSCRIPT  FOR  LEFT, 

MID,  AND  RIGHT  POINTS 

INTEGER 

INTEGER 

ALPHA Vy 

a . 

-J 

INTERMEDIATE  V^ALUE 

OF  6 

M 

M 

322,318 

Hd 

h 

RUNNING  TIME  INCREMENT 
EQUALS  0,  A 1/2,  At 

CSEC 

CSEC 

319 

EVy 

VALUE  OF  SECOND 
DERIVATIVE  AT  POINT  j 

M/{CSEC)^ 

M/(CSEC)“ 

2-16  2-20 

BETAVy 

INTERMEDIATE  VALUE 

OF  r 

0 

M 

M 

,29  327 

VECTAB^, 

WORKING  STORAGE  FOR  jl  . 

-J 

M 

M 

329,327 

ALPHAM.. 

a . 

J 

|o  . 1 , MAGNITUDE  OF  a . 

'-j'  -J 

M 

M 

,2  9,22  7 

BETAMj-j 

|ll  j|  , MAGNITUDE  OF  3 j 

M 

M 

229/22' 

UZ.r 

u 

— z 

UNIT  VECTOR  IN  DIRECTION 
OF  ROTATION  AXIS 

2I 

COSPHI/2|^ 

cos  (p 

COSINE  OF  COALTITUDE  0 

2I 

URPVy 

u 

— r 

UNIT  VECTOR  OF  POSITION 

IN  MOON  COORDINATES 

2I 

TVECc. 

V 

a 

— V 

THE  DISTURBING 
ACCELERATION 

M;  (CSEC)’ 

M/  (CSEC )' 

TAU.^j 

‘u 

DESIRED  TRANSFER  TIME 

CSEC 

CSEC 

,2  8 

PHIV^, 

<p 

RUNNING  SUM  OF  k^  + 2k;2 

M;'  (CSEC)“ 

M/(CSEC)^ 

2-13  .,-17 

PSIV^, 

k 

RUNNING  SUM  OF 

ill  ^li2  -^113 

M ■ (CSEC)^ 

M/ICSEC)^ 

2-13  ..,-17 

PBODY 

P 

PRIMARY  BODY  INDICATOR 

INTEGER 

INTEGER 

XKEPNEW^ 

X 

INITIAL  ESTIMATE  OF  NEW 
VALUE  OF  X 

1 /*? 

M^' “ 

2l^'2l6 

W 

'^M 

W 

W -MATRIX 

M,  M/CSEC 

M,  M/CSEC 

,19_  3O 

PRCXJRAM  CONSTANTS 


I 


I 


AGC 

GSOP 

ENGINEERING 

AGC  VALUE 

AGC 

TAG 

SYMBOL 

MEANING 

VALUE  AND  U'NITS 

AND  UNITS 

SCALING 

.3Dq 

. 3 

.3 

2^ 

DT/2MAXjj 

LIMIT  ON  SIZE  OF  t 

1000  SEC 

100,  000  CSEC 

220 

DT/2MINq 

e, 

MINIMUM  VALUE  OF 

3 CSEC 

3 CSEC 

2^0 

t ALLOWED 

3/4d 

0.  75 

3 

22 

RECRATIOq 

0.  01 

.01 

2O 

ZEROVECy 

(0,0,0) 

(0.0,0.  0,0.0) 

RDEjj 

''de 

RADIUS  OF  RELEVANCE 
OF  EARTH 

80467200  M 

SAME 

229 

RDMp 

‘'dm 

RADIUS  OF  RELEVANCE 

OF  MOON 

16093440  M 

SAME 

22'^ 

3/5^ 

3/5 

. 6 

9 

2 

ZUNIT., 

V 

(0,0,  1) 

(0.0, 0.0,  1.0) 

(0.0,  0.0,  0.5) 

2 

3/32q 

3.  0 

3.  0 

2^ 

15/I60 

15.  0 

15.0 

2"* 

7/12^ 

7 3 

.5833... 33 

• 2° 

2/3^ 

4 3 

. 666. . . 67 

2° 

9/16^ 

9 4 

9.0 

2^ 

5/128^ 

5.'4 

5.  0 

2 * 

J4REZ/J3j^ 

'^4E''e 

RATIO  OF  COEFFICIENTS 
OF  FOURTH  AND  THIRD 

4991607.391 

SAME 

226 

J3E 

HARMONICS  OF  EARTH'S 
POTENTIAL  FUNCTION 

2J3RE'J2jj 

'^3E‘'e 

RATIO  OF  COEFFICIENTS 
OF  THIRD  AND  SECOND 

13554. 26363 

SAME 

227 

J2E 

HARMONICS  OF  EARTH  S 
POTENTIAL  FUNCTION 

.J2REQSQjj 

'^2e‘’e 

SECOND  HARMONIC, 

1. 75501139 

SAME 

.,n 

RADIUS  AND  MU  OF 

EARTH 

X 10^* 

J2REQSQ,, 

-2 

2 

'^2m‘’m  “m 

SECOND  HARMONIC, 

. 3067493316 

SAME 

26O 

RADIUS  AND  MU  OF  MOON 

X 10 

5,.8o 

5.  0 

5. 0 

22 

3J22R2MUj^  : 

• *22m‘'m  “ 

VI 

9.20479048 

X 10-'® 

SAME 

,58 

.DQUARTERjj 

1.0 

0.  25 

2O 

HALFUPq 

2.0 

0. 5 

2° 

THREE/ 8 

3.0 

0.  375 

2O 

DRAWN 
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PROGRAM  CONSTANTS  (CONTINUED) 


GSOP 

SYMBOL 


Lx  ENGINEERING 


AGC  VALUE 


VALUE  AND  UNITS  AND  UNITS  SCALING 


MUEARTHx. 


MUEARTHjj 


MUEARTHp 

-4 

DP2/3 

3CSECS 


G RA  VI TATIONAL 
PARAMETER  OF  EARTH 


GRAVITATIONAL 
PARAMETER  OF  MOON 


GRAVITATIONAL 
PARAMETER  OF  SUTi 


RADIUS  OF  INFLUENCE 
OF  EARTH 


RADIUS  OF  INFLUENCE 
OF  MOON 


3.  986032  X 10^° 

SAME 

M^/CSEC^ 

4.  902778  X 10® 

SAME 

M®/CSEC^ 

I. 32715445  x 10^® 

SAME 

M®/CSEC^ 

1/6 

. 66.  . . 6' 

3 CSEC 

3 CSEC 

7178165  M 

SAME 

2538090  M 

SAME 

CONIC 

SUBROUTINES 

KEPLERN 

SH.  3 

LAMBERT 

SH.-ll 

TIMETHET 

SH.  as 

TIMERAD 

SH.aA 

DELTI  ME 

sH.as 

GETX 

SH.  37 

PARAM 

SH.  34 

GEOM 

SH.  35 

NEWSTATE 

SH.36 

LAMENTER 

SH.  36 

ITERATOR 

SH,  37 

APSIDES 

SH.  39 

FLOW  CHART  CONVENTIONS  FOR  THE  CONIC  SUBROUTINES 


2. 

3. 


4. 

5. 

6. 

7. 

8. 


1. 

2. 

3. 

4. 

5. 

6. 

7. 


In  boxes  divided  by  a broken  line,  the  upper  half  represents 
the  mathematical  formulation  of  the  statement  and  the  lower 
half  represents  how  the  statement  was  coded  in  the  computer. 
The  arrow  implies  that  the  quantity  computed  on  the  right 
side  of  the  arrow  was  stored  into  the  location  specified  on 
the  left  side,  or  mathematically  the  quantity  on  the  left  was  set  equal  to  the  quantity  on  the  right.  Where 
possible,  equations  are  referenced  by  equation,  page  and  reference  number. 

All  values  are  considered  to  be  double-precision  numbers  (28  bits  of  precision  plus  sign)  unless  sub- 
scripted with  an  ^ for  single-precision  (14  bits  plus  sign)  or  subscripted  with  a for  a vector  quantity 
(3  double-precision  components).  All  flags  are  considered  to  be  one-bit  indicators  unless  shown  other- 
wise. 

Double-precision  numbers  are  considered  to  be.scaled  fractions  lying  in  the  range  between  -1.  0 and  1. 0. 
The  scaling  factor  included  in  the  box  is  the  value  by  which  the  number  as  stored  internally  must  be 
multiplied  to  obtain  its  true  value.  It  can  also  be  interpreted  as  defining  the  binary  point.  Thus  a 

5 

scaling  of  2 means  that  the  binary  point  lies  to  the  right  of  bit  -5,  where  bit  positions  are  labeled 
0,  -1,  -2  , . . going  from  left  to  right,  starting  with  the  sign  bit.  In  cases  where  a pair  of  scaling 

factors  are  included,  the  first  applies  to  the  nominal  situation  and  the  second -applies  to  the  off-nominal 
28 

situation.  A scaling  of  2 indicates  the  double -precision  number  is  an  integer.  Thus,  all  valiu'.s  of 
lime  are  given  as  an  integral  number  of  centiseconds. 

A push  list  is  available  for  temporary  storage  of  data  and  for  storage  of  data  common  to  several  sub- 
routines. Locations  within  the  push  list  are  referred  to  relative  to  its  initial  location  and  are  given  as 
decimal  numbers.  Thus  6D  refers  to  location  6 in  the  push  list,  counting  from  zero.  The  values  can 
range  from  OD  to  42D.  For  a general  location  within  the  push  list  the  name  PL  is  used. 

MPAC  The  name  MPAC  refers  to  the  multipurpose  accumulator  used  by  the  interpreter  routine.  It 
consists  of  seven  consecutive  locations  within  erasable  memory  and  holds  the  results  of  interpretive 
arithmetic  operations.  It  is  functionally  equivalent  to  the  actual  accumulator  register  within  the  AGC. 

The  unit  operation,  corresponding  to  the  subscript  unit,  computes  a vector 
of  unit  length  parallel  to  the  specified  vector,  and  leaves  the  result  in  MPAC 
with  a scaling  of  2^.  It  also  automatically  stores  the  magnitu  e double- 
precision  in  push  list  location  36D. 

V'ertical  bars  enclosing  a quantity  imply  forming  the  absolute  value  of  the 
quantity,  which  may  be  either  a scaler  or  a vector. 

Testing  the  overflow  indicator  automatically  turns  it  off. 
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CLEAR 

OVFIND 


SET  UP 
-TABLE 
FOR  EARTH 


SET  UP 
>A- TABLE 
FOR  MOON 


“vi  "■ 
’'(•ti’)  = 


E0tl)uNIT 

1^(01 


URRECT^—  UMIT  (RRECT^) 
SCALED  AT  2' 

R1  3fcD 

SCALED  AT  2“/2^'’ 


GIVEN  The  initial  state  vector  and  ^ 

AND  THE  DESIRED  TRANSFER  TIME  C c , THIS  ROUTINE 
COMPUTES  THE  NEW  STATE  VECTOR  cC't-i')  AND  vCTiV 

CALLED  BY  ; KEPPREP 


O RRECT^  = CC't.')  , INITIAL  POSITION  VECTOR,  IN  METERS  , 

AT  2”/  2” . 

Z)  VRECTv  = Y ct  , initial  VELOCITY  VECTOR  , IN  METERS/ 
csEc  5 AT  a’/a® . 

3)  TAU.  = -Ld,  DESIRED  TRANSFER  TIME  , IN  CSECS  , AT  2’*  . 

4)  XKEPNEW  = XiuiT  ,THE  FIRST  GUESS  OF  Y CORRESPONDING 

TO  TIMEto,  IS  THE  OUTPUT  OF  KEPPREP,  IN  METERS'''^, 
AT  2Py2'‘  . 

5)  XPREV  = x'jTHE  VALUE  OF  x FROM  A PREVIOUS  COMPUTATION 

CYCLE  , IS  USED  ONLY  TO  CACCULATE  AM  INITIAL  X , 
IN  METERS*'^  AT  2‘72'^‘’  . 

(,)  TC  = t'l,  , THE  PREVIOUS  VALUE  OF  TRANSFER  TIME 
corresponding  to  k'  , IH  CSECS  , AT  Z"  . 

7)  XLs  = INDEX  REGISTER  1 CONTAINING  A VALUE  USED  TO 
SELECT  THE  PROPER^- -TASLE  j IS  -2  FOR  EARTH, 

IS  -lOD  FOR  MOON  . 

OUTPUT  : 

1)  RCVv  = X (.-Li')  , TERMINAL  POSITION  VECTOR  , IN  METERS 
AT  2”/2^‘’. 

z)  VCN^  = Y CtO  5 TERMINA  L velocity  vector  , IN  meters/ 
CSEC  , AT  Z'  12.^  . 

3)  TC  = t 1,  , TRANSFER  TIME  CORRESPONDING  TO  THE  VALUE 
OF  X TO  WHICH  KEPLER  ROUTINE  CONVERGED  , IN  CSECS  , 

A.  1-  • 


^NlT^^L\'^E  THE 
ITERATION 


COONTE.R  . 


A)  XPREV  » MPAC  = A ,THE  VALUE  OF  X TO  WHICH 
KEPLER  CONVERGED,  IN  METERS , AT 

2'V2'‘. 

5)  PUSH  list  pointer  is  AT  (/iD  . 


_ £Ct^^)  • Y.(t.O 


(RRECTy  . VRECT^)-  1/ROOTMU 

SCALED  AT  2”/2’‘ 


note;  if  X l i'S  considered  TO  be  the 
iterate  of  X ,THEN  x'  AND  x,n,t 
CAN  BE  CONSIDERED  TO  BE  X_i  AND 
Xo  respectively  . 
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KEPCa  “ Cj 
3^  X » X 
4^  liD-x* 

5)  XI  = m,  NORMALItLING 

factor 

6)  MPAC  = XT  » I 

7)  R I = X t-t  0 

S)  TABLE 


DELTIME  OUTPUT  : 

1)  T-  MPAC  =-bit 

2)  SCXi)  = SC§) 

3)  XSQCCl)  = X^c(^) 
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FROM  PRECEDlKiG  SHEET 


FORM 

'i>Dy  uRRECTv  L'^'-  ■ ^SQC  Cxi)  3 
SCALED  AT  S”/a^’ 


PORM 


■V 


MPAC^  VRECTy[T  - •I/r.OOTMU  ■ 
SCALED  AT  2^5^-2  31 


KEPLER  TERMIWATEE  THE  ITERATION 
VJHEN  EITHER 

1)  the  INDEPENDENT  VARIABLE  tji  HAS 
CONVERGED  TO  VJITHIN  O.OOOOZVo  OF 
THE  DESIRED  TIME  To  , OR 
z)  THE  CHANGE  IN  THE  DEPENDEIsJT 
VARIABLE  X HAS  GONE  TORERO 
(I.E.  LESS  THAN  Z'"/2^^)  , OR 
3)  IT  HAS  ITERATED  THE  MAXIMUM  (zo) 
NUMBER  or  TIMES. 

AT  return  TIME  THERE  IS  NO  INDICATION 
OF  WHICH  CRITERION  STOPPED  THE 
ITERATION  . 


i)  = !>i.ri[TC-ti)  -X^cCS)]^-  COMPUTE  t (L  i) 

_ __v7^ 


RCVi,  MPACy  — aOv  + mpaCv 
SCALED  AT  2*'’/  2^"' 


RCNORM  — iMPACvl 
SCALED  at 


cCti.)  IS  STORED  IN 
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x'cCt)' 


MPAC„  VRECTv  Dl/256  - 


SCALED  AT  2'®/ 


r ^ V (EO  [l  - I COMPUTE  Y (L.)  . 


VCV^  I^Dv  + MPACv 

scaled  AT  -2? Iz  s 


XPREV-^  MPAC-^X 
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INPUT  : 


OUTPUT 


L^^/\BERT 

THIS  SUBROUTINE  C^LCUL^TES  THE  INIT1^L  VELOCITY  REaUIRED  TO  TRANSFER 
A POINT- MASS  ALONG  A CONIC  TRAJECTORY  FROM  AN  INITIAL  POSITION  E (-t  O 
TO  A TERMINAL  POSITION  C(-t  IN  A PRESCRIBED  TIME  INTERVAL  . THE 

resulting  TRAJECTORY  MAY  BE  A SECTION!  OF  A CIRCLE  , ELL  IPSE  , PARABOLA 
OR  HYBERBOLA  WITH  RESPECT  TO  EITHER  THE  EARTH  OR  THE  MOON  • THE 
RESTRICTIONS  ARE; 

1)  RECTILmEAR  TRAJECTORIES  CAN  NOT  BE  COMPUTED. 

Z)  ACCURACY  DEGRADATION  OCCURS  AS  cos©  APPROACHES  1.0. 

Z)  THE  ANGLE  T BETWEEN  ANY  POSITION  VECTOR  AND  ITS  VELOCITY  VECTOR 
MUST  BE  IN  THE  RANGE  (1°  47.5',  119°  IR  .5  '). 

4)  A NEGATIVE  TRANSFER  TIME  IS  AMB  IGUOUS  AND  Wl  LL  RESULT  IN  NO  SOLUTION!  . 

CALLED  BY  : INITVEL 

1)  RIVEC  V = t('ti')  ■)  'M'TIAL  POSITION  vector  , IN  METERS  , AT  2’-’/ B’’’’ . 

2)  R2VEC„  = CCtil  , TERMINAL  POSITION  VECTOR,  IN  METERS,  AT 

3)  TDESIRED  = -t  Bii  , DESIRED  TRANSFER  TIME,  IN  C5EC  , AT  2“  . 

4)  GEOMSGN  = S,^,  A FLAG,  IS  POSITIVE  IF  THE  DESIRED  TRANSFER  ANGLE  S IS 

6 180°,  IS  NEGATIVE  IF  e > 180°. 

5)  VTARGTAGs=  , A FLAG  , IS  CLEAR  IF  THE  TERMINAL  VELOCITY  VECTOR  Y(tj') 

IS  TO  BE  CALCULATED  , IS  SET  IF  Yeti')  IS  NOT  TO  BE  CALCULATED  . 

6)  GUESSW  = F, , A FLAG  , IS  CLEAR  IF  AN  INITIAL  GUESS  OF  co+  7'  IS  INCLUDED  AS 

INPUT,  IS  SET  IF  AN  INITIAL  GUESS  IS  NOT  INPUT  BUT  MUST  BE 
CALCULATED  BY  THE  LAMBERT  ROUTINE. 

7)  COGA  = cot  T-,  AN  INITIAL  GUESS  OF  VALUE  IFF,  IS  CLEAR,  IS  IGNORED  IF  F,  IS  SET  , AT  2'°. 

8)  NORMSW=  Fj.,  A FLAG  , 15  CLEAR  IF  !2n  IS  TO  BE  COMPUTED  BY  THE  GEOM 

subroutine  called  by  LAMBERT,  IS  SET  IF  IS  INCLUDED  AS  INPUT 
TO  LAMBERT  . 

9)  UNv  = , A UNIT  VECTOR  NORM  AL  TO  THE  DESIRED  ORBIT  PLANE  IN  THE 

DIRECTION!  OF  THE  RESULTING  ANGULAR  MOMENTUM  VECTOR,  IS 
ignored  if  Fi  IS  clear  , AT  z'. 

10)  XI  = INDEX  REGISTER  1 CONTAINING  VALUE  USED  TO  SELECT  PROPER  TABLE, 

IS  -2  IF  EARTH  15  CENTRAL  BODY,  IS  -lOD  IF  MOON  IS  CENTRAL  BODY. 

11)  ITERCTRs  = Lm»)i,  MAXIMUM  NUMBER  OF  ITERATIONS. 

1)  VVECy  = Y(ti)  , initial  VELOCITY  VECTOR  , IN  METERS/CSEC,  AT  Z'' / 2^  . 

Z)  VTAR&ET„  = Y(t  !■).,  terminal  VELOCITY  VECTOR,  IS  COMPUTED  ONLY  IF 
IS  CLEAR,  IN  METERS/CSEC  ,AT2V2'. 

3)  MPAC^  = VVECy  IF  n,  IS  SET,  IS  VTARGETv  'F  IS  CLEAR  . 

4)  COGA  = cot  ir  1 COTANGENT  OF  FLIGHT  PATH  ANGLE  MEASURED  FROM  THE 

VERTICAL, CORRESPONDS  TO  LAST  CALCULATED  VALUE  OFTIME  tu,  AT  2'. 

5)  SOLNSW=  P g , A flag  , IS  CLEAR  IF  LAMBERT  WAS  ABLE  TO  CALCULATE  A VALID 

solution  , IS  SET  IF  NO  SOLUTION  WAS  PQS5  I BLE  DUE  TO  A TRANSFER 
ANGLE  TOO  CLOSE  TO  O'*  OR  360°  , OR  A TIME  t u TOO  SMA  LL  . 

^)  PUSH  LIST  POINTER  IS  LEFT  AT  i^D  . 
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NEXT  SHEET 


FROM  PRECEDING  PAGE 


, LAMRLOOP) 


CALCULATE 
A NEW  I 
BA5ED  ON  Pn  = - 

the  pres- I ^ 

ENT  VALUE  or  col- r. 


THIS  15  THE  beginning  OF  TME  MAIN  UOOP  . W\TH\N  THIS 
LOOP  Pi,p2.->  e ARE  CONS^DERED  TO  BE  CONSTANT  . 

COME  HERE  WHEN  CALCULATIONS  EXCEED  THEORETICAL 
LIMITS.  CORRECTIVE  ACTION  INCLUDES  HALVING  Aco+r 
AND  ADJUSTING  CQ-flT  BY  NEW  cot  r. 


j OVERFLOWED 

^ I energy) 


O,  OR 
f,  IS  SET 


overflovsj  in 
CALCULATIONS 


TAKE  ^ 

I CORRECTIVE 
' ACTION 


I CALCULATE 

1 ANEWoC.^  — 

BASED  ON  I H 

L atest  values 

OF  cot  r,  Pn. 


= E-Pn(  l-*-COt^r)| 


1 

s.<0 

1 

RESTORE  TIME 
TO  PREVIOUS 
VALUE . 


CALCULATE  NEW> 

values  OFX,'^,  / 

Ci,C2  BASED  on/ 

latest  valuesV 

0FcotYjOCN»PN  . 


/ \yEs/  HI- 
:/0VERFL0W>-^E^jErgY  CORRECTIVE 


GETX  \ 
CALCULATE 

l±h£xiSi^ 
SH  27  7 


CHANGE  ONE 

cotY  OF  THE  BOUNDS 
ON  cot  T 


. LOENERGY) 


cotrMw  = cotr 


/suffA 

1 PREVIOUS  TIME  t'li  FOR 

(cHEK  J 

f7  IS  SET  IF  NO  t 

SOLUTION  EXI5TS^;\ 
<^NFINFIjG)/ 

CLEAR 

CALCULATE  NEW  

VALUE  TIVIE  t ti.  / DELTIME 
BASED  ON  /CALCULATE  TRANS" 
LATEST  VAL-  \ fER  TIME  t 21  . 

UES  OF  y SH  25  / 

NOj 

TEST  FOR 

convergence^'L^'*'' 
et = z -”  = 0 . 000 2 7. 


A VALID  SOLUTION 
MAY  EXIST 


^ X TAKE 

negp]  corrective 

V y ACTION. 


Y > 

AOj 

cot  Y=C.O+Y-£lco+'rl 


GO  THRU  LOOP 
AGAIN  'WITHOUT 
DECREMENTING  i.  . 


TAKE 

CORRECTIVE 

ACTION. 


YES 

HAS  CONVERGED 


[SbO  LAM^ 

-Litigate 

SET  n NO 

fsC&OLNSw)  SOL- 

. — J utiokj 
I exists 

\ rtnlamb/ 

\ / 

VALUE  OF  Cotr  USED  IN 
\ FOLLOWING  equations 
/CORRESPONDS  TO 
VALUE  OF  TIME 


i'(ti)— (coTY-  y.ri+ U-^XUri) 


\ YES 

-^HAVE  LOOPED 


INQ 


TEST  IS  EQUIVALENT^k-^^v 
TojK^  cot  y |<  €cj  <Yotr^ 

WHERE  ec  = 2'®^ 

CALCULATE  A NEW' 

VALUE  OF  ] — 7 \ 

co-L  3 = co-L  y tA  cot  y 

cot  V FOR  n&g(  ^ • 

IN  NEXT  PASS  i 

THRU  THE  LOOP. 


SUFFCHEK  IS  A 
MINIMAL  CON- 
VERGENCE TEST 

fsUFFCHEt^ 


Hi 

(VTARGTAG) 


<3Wbr1^ 


'•VE  ARE  CLOSE 


'T>-^ENOU&H  TO  toil  t 

..-^CVENI  THOUGH  y < y 

LAMBLOOP  DID  NOT /lAMENTER  \ 
CONV ERGE  cdhp^-^^lculate  Y(i7p 


rtnlamb 

Yeti'),  cotr, 
\ T5.6 , k 


^NO I 

IS  USELESS  TD 
CONTINUE 
when  a cot  y =0 


l^sCsOI^SW)  NO  SOLUTION 

I * EXISTS  . 

/mTi\  CALCULATE 

V J ^ (^1) 

' ANYHOW 


RTNLAMB 
Y(tO,Y(t,.|  j 
cotY,  fs=0,K/ 


GO  THRU 
LOOP  AGAIN 


ANUiO 

t M»  NMWATKm 


CONIC  SUBROUTINES 
uA  M 8 E RT) 


luminary  id 


TO  NEXT  SHEET 


■IT 

mmmemnmuM 

l,  MSS. 


WMWW  ^ 


AKUO 

CUIftANCS  mm  fMVWATfON 


CONIC  SUBROUTINES 

Clambert  j 


LUMINARY  ID 


OOaWNT  NO. 

FC-3360 


I SHEET  15  OF  43 


(ir^  a .'hi^ 


FROM  PRECEDING  SHEET 

i ^ this  is  the  beginning  of  the  main  loop. 

^AMBLOOPj  WITHIN  THIS  LOOP  9,  Pj  , P^  ARE  CONSIDERED 
^ 1 ^ TO  BE  CONSTANT. 


coT  T sin  © - P2. 


1-C5TH 

MPAC  • SNTH  -(CSTH  - RHo) 
SCALED  AT  2* 


CALCULATE  A NEW  VALUE  OF  P^ 
BASED  ON  THEPRE5EMT  VALUE 
OF  CO+  TT . 


P—  MPAC 

SCALED  AT  2^  '’n 


oCn  = 2 - Pn  (1  + cot^  y) 


RIA—  MPAC  — Dl/3Z  - P(D1/102A+  COGA^) 
SCALED  AT  2^ 


HAVE  EXCEEDED  THEORETICAL 
limits.  TAKE  CORRECTIVE 
ACTION  . 


CALCULATE  A NEW  VALUE  OF  ^ 
BASED  ON  latest  VALUES  OF 
00+  T , Pm  ■ 


OVERFLOW 


HIENER&V 


OVERFLOW  OCCURS  IF 
IoCmI  2 b4  . HAVE  EXCEEDED 
THEORETICAL  LIMITS.  TAKE 
CORRECTIVE  ACTiON  . 


/ GETX \ 

/ calculate  new  values  \ 

OF  X,  I BASED  ON  LATEST^ 

\ VALUES  OF  cot  y,  °<.M  , Pm  / 
\ SH  2 7 / 


GETX  input  ; 

1)  SNTH  = sin  e 

2)  CSTH  = 00s  e 

3)  COGA  = cot  T 

4)  R1  = nCLi) 
^ RIA  = <Km 
6)  MPAC=  Pm 


GETX  OUTPUT 

1)  X = X 

2)  XI  - f 

3)  XEPCl  = Cl 

4)  KEPC2  = Cl 

5)  0D  = 

fe)  INFINFLG  =^7 


/ SAVE  ±-2.1  WHICH  NOW  BECOMES  THE  PREVIOUS 

VALUE  OF  TIME  . THE  ITERATOR  ROUTINE 

TPREV-^T  REQUIRES  TWO  SUCCESSIVE  VALUES  OF 

SCALED  AT  2^®  TIME  TO  LINEARLY  INTERPOLATE  ANEW 
1 VALUE  OF"  cot  y. 


MPAC—  XI 


LOAD  I IN  PREPARATION 
FOR  DELTIME  . 


TO  next  SHEET 


«MUO 

OHOAMa  mm  NMWArwH 


cxMRioct.  wes. 

•y.  ^gcL.^.77-  


CONIC  SUBROUTINES 

( LAMeERT~) 

DOCUMENT  NO. 

i LUMINARY  ID  FC~33S0 

-•«  -I  I SWCT  -to  tv  ^ rr 


FROM  PRECEDING  SHEET 


IS  SET  IN  SUBROUTINE 
GETX  IF  CONIC  IS  REOUIRED 
TO  PA.SS  THROUGH  INFINITY. 
TAKE  CORRECTIVE  ACTION  . 


/ DELTIME \ 

/ CALCULATE  A NEW  VALUE  OF  \ 
THE  TRANSFER  TIME -tj.!  BASEt^l 
ON  THE  LATEST  VALUES  OF/ 

\ x,1,c,,c, / 

\ SH  26  / 


DELTIME  input:  DELTIME  OUTPUT; 
I"!  KEPCl  = C,  1')  T ■>=  MPAC  - t,! 


2l  KEPC2=  Cj 
3)  X = K 
4^  <()D  = 

5)  MPAC  = XI  = 1 
d R1  = T(-tO 
T)  /X  - TABLE 


1')  T ■>=  MPAC  - t 
2'i  SCXI)  = St'S) 

3^  XSQC(Xl)  = x^c(  I ) 
4)  OVIND  = OVERFLOW 
INDICATOR 


overflow 


BISTIME 


OVERFLOW  MAY  HAVE  OCC'uRED 
DURING  CALCULATION  OF  t 
IN  DELTIME  . TAKE 
CORRECTIVE  ACTION. 


TERRLAMB  — TDESIRED-MPAC 


TEST  TO  SEE  IF  THE  TIME  t, 
CORRESPONDING  TO  THE 
LATEST  value  OF  cot 
IS  sufficiently  close  TO  < 
THE  DESIRED  VALUE  -tpii  . 
£.,=  £*•  -Loi,  , where 
e -t  = 2"^’  - 0 . o o o 2 “70 


LAMBERT  HAS 
NOT  YET 
CONVERGED. 


LAMBERT  HAS  SUCCESSFULLY 
converged,  go  to  FINAL 
CALCULATIONS  . 


/CHECK  CTR\ 
L L - 1 


JSLOPESW^ 


. 21  21  > 


GOITER 


rsUFFCHEKl 


EVEN  THOUGH  HAS.  GONE  TO  ZERO 
THE  TIME  ■bg.j  MAY  HAVE  CONVERGED 
IN  A MINIMAL  SENSE  . 

GO  TO  SUFFCHEK  FOR  THIS 

minimal  convergence  test. 


Anxio 

GIMDANCE  MO  IMVI«ATION 


CONIC  SUBROUTINES 
LAMBERT 


DOCUMENT  NO. 

, NARY  ID  FC-3360 


SHEET  19  OF  43 


FROM  PRECE'DINO  SHEET 


/_ itera^tor \ 

LINEARLY  INTERPOLATE  A \ 
VALUE  OF  aco+yTHAT  WILl' 
PRODUCE  A BETTER  . 

ESTl  M ATE  CO+  r+  £>  CO+  r ./ 

^ S-P  37  7 


THIS  TEST  IS 
EOUIVALENT  TO 
I A cot  rl  < €c,  1 
WHERE  £c.  = Z‘’- 


ITERATOR  input: 

1)  ORDERSW  =<4 
E)  SLOPE5W  =-f3 

3)  T = -t;,! 

4)  TPREV  = til 

5)  TERRLAMB  = Terr 
fc)  DCO&A=  ^cot  r 

7)  COG  A = cot  T' 

8)  TWEEKIT  = K 

<5J  COGAMAX  = Cot  Tmax 
iqJCOGAMIN  = cottMiN 


ITERATOR  output: 

1)  DCOGA  = Cl  cot  -r 
Z)  SLOPESVJ  = 

3)  COGAMAX  = cot 

4)  COGAMIN-  cot  T„,n 


STOP  ITERATING. 


NO 

CONTINUE 

ITERATING. 


WHEN  A cot  Y GOES  TORERO  IT  IS  USE- 

,,  LESS  TO  CONTINUE  ITERATING  . HOWEVER 

. ^ EVEN  THOUGH  THE  ITERATION  IS  STOPPED 

SUFFCHEld  PREMATURELY  THE  TIME  MAY  HAVE 

' 1— ^ CONVERGED  IN  A MINIMAL  SENSE . IF  SO 

GO  TO  VELOCITY  CALCULATIONS  . 


CALCULATE  A BETTER  i 

ESTIMATE  OF  cot  y.  I * 

THIS  VALUE  VVILL  coty=coTrt  Cicot  r 

CORRESPOND  TO  THE  r ^^GA'^rooTt  MPAC  I 
VALUE  OF  t.3,  THAT  ^cALEDATE^ 

15  CALCULATED  ON  1.^ ‘ 

THE  NEXT  PASS  . 


I^errI 


FINAL  ERROR 
IS  TOO  LARGE. 


GO  through 
THE  LOOP  AGAIN. 


LAMBLOOP 


kl  IS  THE  MINIMAL  ACCEPT- 
ANCE percentage  of 
toil  TO  WHICH  Terr  MUST 
CONVERGE.  IT  IS  CDKKEHT- 
LY  EQUAL  TO  2'^"^. 


GO  TO  THE 

velocity 

CALCULATIONS 
ON  THE  NEXT  SHEET. 


set:  INDICATES 

FsCSOLNSW)  NO  SOLUTION 


CHECKCTR] 


L -• — L — 1 


this  SUBROUTINE  IS  CODED 
IN  BASIC  LANGUAGE  . 


MPAC»-  ITERCTRjFf  FIXLOC  • 
(ITERCTRj**  PIXLOC)-  1 


RETURN  VIA . 
. DANZIG  / 


AfOLO 

CWMia:  M»  MWtCMKW 


LAMBERT  TERMINATES  ITERATING  AND  COMES 
HERE  FOR  the  final  CALCULATIONS 
IF  either: 

1)  THE  ERROR  1-Lp2,t FOR  intermediate 

VALUES  OF  -bu  AND  co+ r IS  LESS  THAN  0.0002  T. 
OF  THE  DESIRED  TIME  , OR 

2)  IT  HAS  GONE  THROUGH  THE  LOOP  J 

AND  THE  ERROR  \ IS  LESS  THAN 

2'^''  OF  THE  DESIRED  TIME  tcil- 


^ ■ a rl  +-  ^ "Ari) 

VVEC^-^  MPAC^-*-  -\J  ROOTMU(CO&A- URlv) 

+ -\f^^  • ROOTMU  ( UNv  V URl^') 

SCALED  AT 

CALCULATE  INITIAL 
MEl-OCITV  VECTOR. 


THE  VALUE  OF  cot  y USED  IN  THE 
FOLLOWING  CALCULATIONS  CORRESPONDS 
TO  THE  LAST  CALCULATED  VALUE  OF 
TIME  -t:ii  . 


(VTAR&TAG, 


"S 

CLEAR 

. 

MPAC— - MAGVECZ 

1 SCALED  AT 

. 

LAMENTED  IS 
ACTUALLY  AN 
ENTRY  POINT 
WITHIN  SUB- 
ROUTINE 
NEW/STATE  . 


STORE  TERMINAL 
VELOCITY  VECTOR 
VC-Ez')  . 


/ lamenter  \ 

/ CALCULATE  TERMINAL' 
VELOCITY  VIA  ENTRY 
\VVITHIN  MEWSTATE  / 
\ SH  36  / 


1 VTARGET^  — - MPAC  ^ 
SCALED  AT  Z’/Z® 

RTNLAMB 

YCti),Y(,Ez),cotrV 
Fs=0,lc  / 


RTNLAMB 

cotr, 

. ■f^s'*0,  k / 


LOAD  t-Ctz)  FOR 
ENTRY  INTO  NEWSTATE 
AT  LAMENTER  . 

lamenter  input; 
1)  VVEC^  = Y(lO 
2^  NIPAC  = r (ti) 
l.  S^URly*Vrri 

' +)  X = X 

5)  XT= 

e)  S(xi)  = sCf) 

7)  XSQC(XI)  = x'c( 

8)  >j.,-  TABLE 


IF  IS  SET  DO 
NOT  CALCULATE 
■ terminal 
VELOCITY  . 


LAMENTER  OUTPUT: 

1)  MPAC^  = Y (.-t  z) 


MT 

HKinami«naH  i«g 
ommtbOL.  mss. 


MULst  r, 

eocMt 


HKHIO 

eUlDANCC  tm  MVICATION 


CONIC  SUBROUTINES 

('LAMBERT) 

OOCUMfNT  NO. 

LUMINARY  ID  FC“33GO 

: 1—, 

7r*EV4  I SHEET  21  Of  A3 


PROGRAM  COMES  TO  ONE  OF  THESE  ENTRIES  WHENEVER  THE  CALCULATIONS  EXCEED  THE 
THEORETICAL  BOUNDS.  CORRECTIVE  ACTION  \5  TAKEN  BY  HALVING  THE  INCREMENT  y 

AND  THEN  ADJUSTING  THE  VALUE  OF  coF  T WITH  THE  NEW  A coT  y. 


COME  HERE  IF 
INTERMEDIATE 
VALUE  OF  oLu 
OVERFLDVWED. 


COME  HERE  IF 
INTERMEDIATE  VALUE  OF 
IS  60  , OR  IF  F,  WAS 
SET  IN  SUBROUTINE  GETX. 


COME  HERE  IF 
OVERFLOW  OCCURRED  WHILE 
calculating  t-zi  IN 
SUBROUTINE  DELTIME  . 


RESTORE  TIME  TO  ITS 
PREVIOUS  VALUE,  l.E. 

THE  VALUE  THAT  EXISTED 
BEFORE  THE  DELTIME 
CALCULATIONS  . 


LO  ENERGY) 


SET  PUSH  LIST 
POINTER  TO  ^D 


SET  PUSH  LIST 
POINTER  TO  4D 


THE  PRESENT 
VALUE  OF  co+3' 
BECOMES  THE 
new  LOWER 
BOUND. 


CHANGE  ONE  OF 
THE  BOUNDS 
ON  coT  y. 


COGAMAX- 


THE  PRESENT  VALUE 
OF  cx>T  r BECOMES 
THE  NEW  UPPER 
BOUND . 


(COMMONLM 


JALVE  THE  increment  AtO+y 


THIS  TEST  IS 
EOUIVALENT  TO 
1 ACOtylX  €t  1 
WHERE  £c= 


RE  PLACE  coT  r BY 
AN  ADJUSTED  VALUE. 


! WHEN  A lot  Y GOES  TO 

SUFFCHEK  HERO  IT  IS  USELESS 
' ^ J TO  CONTINUE  ITERATING. 

HOWEVER  EVEN  THOUGH 
Aco+  IT  HAS  GONE  TO 
HERO  LAMBERT  MAY  HAVE 
CONVERGED  TO  A VALUE  OF 
TIME.  SUFFCHEK  WILL 
determine  THIS  . 


WILL  COME  here  IF  P^K 
WHICH  IMPLIES  e IS  TOO  NEAR 


LAMBLOOP 


GO  THRU  ITERATION 
AGAIN  WITHOUT 
HAVING  DECREMENTED 


SET  PUSH  LIST 
POINTER  TO  <<iD 


SET  

-fsfsOLNSW^ 


THIS  indicates 
NO  SOLUTION  EXISTS  . 


RETURN  IMMEDIATELY 
WITH  Fj  SET. 


CUIMNR  Mt  NAVICATION 


CONIC  SUBROUTINES 

(lambept^ 

DOCUMINt  NO. 

luminary  id  FC~3360 


«urcT 


TIMETHET 


STORE  return  address 
IN  RTNTT 


SET  PUSH  LIST 
POINTER  TO  0D 


I CLEAR 
OVFIND 


LOAD  E(ti),v(t,0 


GIVEN  THE  INITIAL  STATE  VECTOR  rCtil  AND  AND 

THE  DESIRED  true  ANOMALY  DIFFERENCE  0 , This 
SUBROUTINE  CALCULATES  THE  CORRESPONDING  TIME 
OF  FLIGHT  -bei  AND  OPTIONALLY  THE  FINAL  STATE 
VECTOR  CCEi)  AND  Yeti')  . 

CALLED  BY  ; 

CSI/a  , CDHMVR,  P34  (and  PTA),  PREC/tT 
(in  P35  AND  VTS)  , TIMERAD  ( AT  COMMMOUT) 

INPUT.  rvEC^  =E(ti),  INITIAL  POSITION  VECTOR,  IN 
METERS,  SCALED  AT  2'"/ 2^'’. 

2)  VVEC^=YU,'),  initial  velocity  VECTOR,  IN 

METERS/CSEC,  SCALED  AT  2'' j . 

3)  XI  = INDEX  VALUE  USED  BY  PARAM  TO  SET  UP 

THE  PROPER  M- table  , IS  - 2 FOR  EARTH  j -lOD 
FOR  MOON- 


PA  R AM \ 

CALCULATE  CONIC  N 
FARAMETERS«>.,PM,co-l-r/ 
\ SH  34  ^ 7 


INPUT-. 

®D,  = r(tO, INITIAL  POSITION  VECTOR 
MPAC,,  = Y(ti),  initial  VELOCITY  VECTOR 

yi=  indekvalue  for>.c-table 
output: 

RIA  = 4)  SN 

P = MPAC  = P„ 

COGA  = co+r 

COGAFLA&=f,.  IS  CLEAR  5;  CS 
><-- table  6)  RV 


OVERFLOW 


r TOO  NEAR 
0°  OR  180° 


-(CO&ADVFU 

"sET^-- 1 

f,.(C06AFLA&) 


/CALCULATE  UNlVERSAi. 
\ VARIABLE  y 
\ SH  27  7 


entry 

FROM  — 
TIMERAD 


INPUT'. 

SNTH  =sin6 
CSTH  = cose 
. COGA  = co+r 
\ U1  = ^(Ei) 
/ RIA  = OL  N 
' MPAC=Pn 
output; 

X - X 
xi^  5 
KEPCl  = Ci 


ABTCONIC  NO 


KEPC2  = C, 
(JD  = X'^ 
INFINFLG  =-Fi 


( COMMNOUT 


LOAD  ^ 


4)  SNTH  = sin  9 , SCALED  AT  2%  WHERE  6 IS 
' THE  TRUE  ANOMALY  DIFFERENCE  . 

IS  CLEAR  5)  CSTH  = cos  9 , SCALED  AT  2'. 

6)  RVSVV  = A FLAG,  IF  CLEAR  THE  FINAL 

STATE  VECTOR  IS  CALCULATED  , IF  SET 
THE  VECTOR  IS  NOT  CALCULATED. 
OUTPUT; 

■  1 l)  T = -til  , THE  transfer  Time  in  csec  scaled 

■ AG)  AT  2'^»  . 

.. J 2)  <)!Dv  = r(ti)  , the  FINAL  POSITION  vector  , 

, IN  METERS  scaled  AT  2*’/2^''. 

NO  3)  MPAC^  = ■’■P'E  PINAL  VELOCITT  VECTOR  , 

solution  in  METERSy  csec  SCALED  AT  2’’ / 2^  . 
■^EXISTS  4)  COGAFLAO  = Ty, A FLAG  , IS  cleared  IF  T IN 
THE  RANGE  (1°4T.5',  nS^lS  .S' ) , IS  SET 
OTHERWISE  AND  HENCE  NO  SOLUTION 
Ex  I STS  . 

= .Ci  5)  INFINFLG  =Ft  , A FLAG  , IS  SET  IF  CLOSURE 
' ^7^  through  INFINITY  REQUIRED  ( NO  solution)  , 

IS  CLEAR  otherwise. 

9)  PUSH  LIST  POINTER  AT  6D  IF  SOLN  EXISTS 
AND  Ft  IS  clear  , AT  <>D  IF  SOLN  EXISTS 
AND  ft  IS  SET,  AT  QD  I F NO  SOLN  EXISTS  . 


(infinflg) 


ABTCONIC  NO  SOLUTION 
L SH24  J EXISTS  • 


CLEAR INDICATES  SOLN 

f,(C0&4FLAG)  IS  VALID 


/ DELTIME \ 

'CALCULATE  TRANSFER  \ 
TIME  ti,  corresponding 
, TO  X JUST  CALCULATED  / 
\ SH  26  / 


KEPC  1 = C, 
KEPC  2 = Cl 
X = X 
MPAC  = XI  = { 
R1  =*  r(ti) 
>x-TAvftLE 


T = MPAC  = -bn,  TRANSFER  TIME 
S(XI)  = s(t  ) 

XSQC(Xl)  = X^c(  1 ) 


TRVSw) 


DO  NOT  CALCULATE  C(.ti),  Y (t.  i") 


I input: 

/ NEWSTATE  \ VYeC„=Y(t,) 
/CALCULATE  NEW  STATEN.  Rl  = rCt,) 
y vector  FOR  TIME  ti  / URl^=U.ri 


OUTPUT  : 

(jDv  = t(ti) 
MPAC„  = Y(E  i) 


RTNTT 

fi  = o / 


I El,,  £ (t  i)  I 


XI  = T 
stxi)  = s(f) 
XSQCCXl)=X*cCf) 

^ ~ ^71 

-TA.BLE 


ummmt.  mass. 


AA0U.0 

OUIMNCC  AM  MVtOATrOH 


COMIC  SUBROUT^MES 

(tim  ETHET) 

BOCUMENTNO. 

luminary  id  fc-3360 

MV  > i SHEET  23  Of  43 


(JTIMERAD  ) 

STORE  RETURN  ADDRESS 
IN  RTNTR 


SET  PUSH  LIST 
POINTER  TO  0D 


CLEAR 

OVFIND 


load 


/ PARAM \ 

CALCULATE  CONIC  ' 

\ SH^4  7 


input; 

tfDv=c(tO, initial  position  vector 
. NIPAC^  = ^(tjK'NVTlAL VELOCITY  VECTOR. 
' yi=  INDEX  VALUE  FOR  al-TABLE 

output; 

RIA  = Kn 
P = MPAC  = Pn 
COG  A = to+V 

UNy  = U-n,UNIT  vector  normal 
TO  nC-ti)  AND  y(-tO- 
R1  « MAGNITUDE  OF  c C.'tj) 

URly=  !ip^,UNITVECTOR\l|:(ti') 

U2y  = iivi,  UNIT  VECTOR  11  Y(tO 

-TABLE 


GIVEN  THE  INITIAL  STATE  VECTOR  r (*;  il  AN  D V (t  i^ND 
A DESIRED  RADIUS  r (.E  TO  WHICH  THE  STATE 
VECTOR  IS  TO  BE  UPDATETD,  THIS  SUBROUTIMH 
CALCULATES  THE  TRANSFER  TIMEE^i  AND 
OPTIONALLY  THE  NEW  STATE  VECTOF?  . 

CALLED  BY:  NOT  CALLED  IN  SUNDANCE 

INPU  . i)  RVECy  = E(ti),  INITIAL  POSITION 

VECTOR, IN  meters, SCALED  AT 
l\  VVECy^  Y(Li1  , INITIAL  VELOCITY 
VECTOR,IN  METERS  /CSEC,AT 

3)  XI  = index  value  used  by  PARAM  to 

SET  UP  PROPER  al-TABLE  , 15 -E  FOR 
EARTH  , -ioD  FOR  MOON  . 

4) RDES1RED=  i'(t  J, TERMINAL  RADI AL 
DISTANCE  ON  TRAJECTORY  FOR  WHICH 
transfer  time  is  COMPUTED. 

SITIONVECTOR  Sj  SGNRDOT=  S}. , 15  POSITIVE  IF  IS 

ASSUMED  TO  HAVE  A POSITIVE  RADIAL 


OVERFLOW 


YES 

/ yroo  NEAR 
0°  OR  ISO"  I— 


1 GOTO  TIMETHET 

T SUBROUTINE  TO 

~7~71  SETFy«C06AFLAG 
COGAOVFL  indicating  no 
\ SOLUTION  EXISTS 


FORM  CO+  -r -\/ Pn(2-‘Xn)  Vi, 


»- 


CCGA^/  P-(DV/32-RVA) 
SCALED  AT  2’ 


FORM  U,., 

MPACy  (D1/A4  -TflA)  • URly 
SCALED  AT  Z'’ 

i ^ 

e=  (i-o(n)  u „ - c«+r  \ivi 

MPACy  *-  MPACy  - !}Dv 
SCA;,.ED  at  2’ 


VELOCITY,  IS  NEGATIVE  FOR  j 

NEGATIVE  RADIAL  VeLOCiTY  . 

6)  RVSW  = F(.  , A FLAG  , 15  CLEAR  IF  THE 
NEW  STATE  VECTOR  IS  TO  BE  CALCU- 
LATED , IS  SET  IF  NOT. 

output: 

1)  T=tj,, transfer  time, in  CSECS, 
SCALED  AT  2". 

2)  4>Dv  = C(ti),  TERMINAL  POSITION  VECTOR^ 

IN  METERS  , SCALED  AT  2“/2'-'’  . ’ 

3)  MPACy  = Y(ti), TERMINAL  VELOCITY 
VECTOR, IN  METERS/CS£C,SCALE0AT3Vi'. 

A)  AP5ESW  = F,,  A FLAG,  IS  5ET  IF  •-(t,')  IS 
OUTSIDE  MAGNITUDE  RANGE  OF 
(PERICENTER,  APOCENTER),  IS  CuEAR 
IF  WITHIN  RANGE  . 

5)  COGAFLAG  = Fr  > A.  FLAG  , 15  SET  I F T IS 
WITHIN  1°47.5'  OF  EITHER  0°OR180°, 
IS  CLEAR  OTHERWISE. 

6)  SOLNSW  = -fs  , A FLAG,  IS  SET  IF 
ECCENTRICITY  IS  SUCH  THAT  NO 
SOLUTION  15  POSSIBLE  , IS  CLEAR 
OTHERWISE  (fq  INGSOP  IS  LOGICALLY 
EQUIVALENT  TO  ^5  IN  PROGRAM')  . 

T)  PUSH  LIST  POINTER  AT  GD  IF  SOLN 
EXISTS  AND  Ffc  IS  CLEAR  ,AT  i^D  IF 
SOLN  EXISTS  AND  Ffe  IS  ^T,  AT9>D 
IF  NO  SOLN  EXISTS 


CIRCULAR 


FORM  ii-e  = AND  lei 

HPACy— - UNIT(MPACy) 
SCALED  AT  Z' 

BGD  — iMPACyl 
scaled  AT  z3 


SET  PUSH 
LIST  TO 
00 


SETfi 

(sOLNSw) 


NO  SOLUTION 
EXISTS 


OVERFLOW 


overflow  occurs 
IF  1 £ 1 < 2''®  OR 

iFlel  ^2®. 


TC  NEXT  PAGE 


(abtconic 


LIGHT  PROG  ALARM 
I LIGHT SET  ALARM 
I CODE  (S.0&07:  NO 
SOLUTION  FROM 
TIME -THETA  OR 
TIMe-RADIUS)y 
GO  TO  POO 


ANUO 

I m mmttam 


— CONIC  SUBROUTVMES 

(VlMERAD^ 

OOCWKNT  HO. 

liti  LUMINARY  ID  PQ  — 33SO 

I SHHT  2-4.  Of  43 


FROM  PRE.CEDIK1G  PAGE 


SCALED  AT 


STORE 


^ Dl/lt 

D'r\tr<riDerri  ' 


I COSF—  MPAC 


Rl-P 

RDESIRED 

PAC*^  ■ ■ ■ 

3 D 

SCALE!)  AT 


OVE  RFuOW 


^ YES 

’occurs  IFlcOS-fl  2.0 


IF  OVERFLOW  OCCURS  THE"  MAGNITUDE 
OF  COSF  WILUBE  incorrect  BUT 
THE  SIGN  WILL  BE  CORRECT. 


I form  1 - ccs'f 

j MPAC*- D1./4 -MPAC^ 
SCALED  AT  a* 


:CCURS  IF  ic.05-f  1 > 1.0  . 


MPAC  •-  SIGN  CS&NRDOT)\y  MPAC’ 

scaled  at  a’ 


CLEAR  1 
ftCAPSESV,/)! 


I TERMNVEC 


C05F  Dl/a  • SIGN  (cosf) 
MPAC  REP-Z.ERO 


FOR  THIS  SITUATION  SET 
oo6f=-1.0  WITH  CORRECT 
SIGN  j siM  f — 0 C . 


SET  1 

■f^CAPSESW)  ; 


tmis  indicates  cos-T 
WAS  COMPUTED  >1.0  , 

IMPLYING  t'Cta)  IS  OUTSIDE 

RANGE  OF  (PERICENTERjAPOCENTER). 


I U^,=  ccs-T  > x ^e) 

MPAC^—  CCSF-  OJDy-^MPAC(uNvi' 

! SCAi_cC  AT  2' 


i 

1- 

cos  © = '^r-i  ' 

1 

'ii  r£ 

1 

CS‘V  • 

mpac^ 

1 

scaled  A'^ 

"2.* 

THE  METHOD  OF  COMPUTATION  AUTOM  ATIC.ALLY 
FORCES  cos  0 INTO  THE  RANGE 
(-0.999  • * ■ , -HO,  999 


5NTH-^(0Rl^<tD^)-  UN^  ”j 

SCALED  A I 2* 


/ C-ETX 

/CALCULA-^E  X IN 
'=»REPARATiON  FOR 
\CALCULAT1NG  t 
\ SH2  7 


SNTH  = 

%\r)  6 

y 

X 

CSTH  = 

COS  0 

XI 

S 

CO&A  = 

CO+  T 

KEPCl  = 

Cj 

R1  = 

r(tv) 

KEPCZ 

RIA  = 

“^N 

CJ)D 

x’- 

MPAC  = 

Pn 

INFINJFLG  = 

^7 

CLEA^t  

f^CSOLNSW) 


INDICATES  SOLUTION 

iS  valid 


COMMNOUT 

\SH23/ 


GCTOTIMETWET  SUBROUTme 
I FOR  CALCULATION  OF 

L transfer  Time  and 
THEN  RETURN  TO  CALL- 
ING routine  Directly 
FROM  timethet. 


•IT 

IMSIWHiMUIMH  lAt 
C4MIMf,  MSS. 


APOLLO 

CWOANCC  AMD  MVIGATKM 


CONIC  SUBROUTINES 

Cti m e r a o) 

I DOCUMENT  NO. 

LUM.NARV  ID  j FC-3560 
-1.  I SHEET  25  Of  4.3 


/ POLY \ 

/evaluate  the  SERIE^ 

LEAVE  RESULT  IN  MPAC 

\ SCALED  AT  / 

\ FC-3070  / 


SEE  NOTE 
BELOW  . 


s(xi)  — MPAC 
SCALED  AT  2 ' 

STORE  s C^)  . 


/ POLY \ 

'EVALUATE  THE  SERIES  N 

V.  4!  fc! 

LEAVE  RESULT  IN  MPAC 
, SCALED  AT  2*  . / 

\ FC-3070  / 


SEE  note 
BELOW  . 


GIVEN  A VALUE  OP  the  UNIVERSAL  VARIABLE 
X,  AND  the  VALUES  Ci,Cj,  AND  1 , THIS 
SUBROUTINE  CALCULATES  THE  CORRESPOND- 
ING TRANSFER  time  -Lii  . 

CALLED  BY  : 

KEPLERN  ; LAMBERT  , TIMETHET. 

1)  KEPCl=Ci  AT  . 

2^  KEPC2  = Cl  AT  Z*”. 

X = X,  UNIVERSAL  VARIABLE  , AT  2''’/2'‘’  . 

41  iD=x’,  normalized  AT  2^^""  . 

5)  XI  = INDEX  REGISTER  CONTAINING  THE 
normalizing  VALUE  - vi  . 

C)  MPAC  = '5  , AT  2‘  . 

7)  R1  = TCti)  ,THE  MAGNITUDE  OF  , 

AT  Z^’  / 2^’’  . 

8)  ^-TABLE  APPROPRIATE  FOR  EITHER 

earth  or  moon  . 

S)  THE  PUSH  LIST  POINTER  IS  AT  2D. 

■ 1)  T-MPAC  = ti,  , TRANSFER  TIME  , IN  CSECS  , 
AT  2^®  . 

2)  SCxi)  = SCI)  1 ■2.'  • 

3)  XSQCCXI)  = x^c(0  , AT  2^’/ 2®^  . 

4)  OVFIND^  THE  OVERFLOW  INDICATOR  , IT  MAT 

BE  TURNED  ON  AS  A RESULT  OFt.2.T. 
CALCULATION  , IMPLYING  THE  VALUE  OF 

X at  input  was  too  large  . 

5)  PUSH  LIST  POINTER  IS  LEFT  AT  0 D . 


XSQCCxi)-^  MPAC  iJD  • MPAC 
l^>  SCALED  AT2*®y2®' 


STORE  xicCt)  . 


EXCHANGE 
CiX^cCll 
AND  X'*  . 


FORM  x[Ciyi  S(t)-F  F (ti)  ) I 

- F — 1 

MPAC  X (KEPC2  ■ MPAC  • 5(Xl)+  Rl) 
SCALED  AT  2'*’/ 


I 

fell  = [ciX®  c(lVx^CiX’-s(f)+rC-ti)^j 

T-^  MPAC  — 1/ROOTMU-C0D  + MPAC) 

SCALED  AT  2^® 


QPRET 

tM,5(j),X»c(|)y 

OVIND  / 


NOTE  •- 

THE  INFINITE  SERIES  s(J)  AND  cCI)  ARE  APPROX- 
IMATED BY  POLYNOMIALS  OF  DEGREE  9.  THE 
COEFFICIENTS  USED  ARE  THE  RESULT  OF  A 
CHEBYSHEV  POLYNOMIAL  APPROXIMATION  TO 
EACH  SERIES  . SEE  REF.  & AND  REF,  2 . PAGES 
S91-  5 . THE  COEFFICIENTS  USED  ARE  AS 
FOLLOWS  . 

set)  <^^t) 

0.083333334  X 2'  0.03 1250001x  2“ 


-O  .Z6<.fe6<,fc84  X 2'® 

O . 4083491  S5  X 2'“ 
-0.34  1198  67  5 X 2‘'''' 
O.  21 0 I 53  24  2 X 2'“ 
-0.0862219SI  X 2'^® 
0. 0262  68812  X 2"'^® 
- 0. 0061  6 331  6 X 2'®* 
0.  00H77342X  2'®'' 
-O.  000199055X  2'^’ 


c Ct ) 

O . 031  2 50001  X 2“ 
-o.  166666719  X 2'^ 
O.  35  5555413  x 2*® 
-0.406  34  7410  V 2"'® 
O. 288962094  x 2"“ 
-O  . 140  117  894  X 2"®® 
O.  04  9 24  7387  x 2‘®^ 
-0.01308I923X  2'^® 
0.00Z8063S9X  2"®® 
-0.000  5Z9414  X 2'®° 


LUMINARY  ID 


THIS  subroutine  computes  the  universal  variable  y. 

REQUIRED  BY  THE  TIME  EQUATION. 

CALLED  by:  LAMBERT,  TIMERAD  , TIMETHET 


input: 

1 SNTH 


3 


CSTH  ' 
COGA  ^ 


R1 


svn  e SCALED  at  Z*-, WHERE  e IS  THE  TRANSFER,  ANGLE, 
cos  G SCALED  AT  2^  . 

cot  T,  THE  cotangent  OF  TVIE  FLIGHT  PATH  ANGLE 
MEASURED  FROM  THE  VERTICAL,  SCAlEDAT  2® 
'(ti),THE  MAGNITUDE  OF  r , SCALED  AT  a’-’/a  . 


RLA  =°<N  , the  RATIO  OF  TO  THE  SEMI- MAJOR 


y2- 


SETT-  = 1 


AXIS  , scaled  at  Z'  . 

MPAC=  Pm  , THE  RATIO  OF  THE  SEM  1 - LATUS  RECTUM 
TO  r(t.,)  , SCALED  AT  2‘. 

the  push  list  POINTER  CAN  BE  AT  ANV  VALUE  PL, 
WHERE  O PL^  27D  •,  IS  NORMALLY  AT  ^D  . 


CLEAR 
fuj  (3&0SW) 


Fu)  IS  ONLY 
USED 


FORM 

(6d  — 

SCALED 

l/F7 

/VAPAC 
AT  2"^ 

output: 

1 y = X 

r 2 

3 

4 

5 


THE  UNIVERSAL  CONIC  PARAM  ETER  , SCALED  AT  2"/2''‘-  , 
yi=  WHERE  -f  =°<mXJ,,  scaled  AT  ZS 
KEPCl  = C.^  , SCALED  AT  Z”/ 2“ 

KEPCZ=  C,  , SCALED  AT  Z‘ . 


0I> 


,34  - ML 


/ ^ 


= , normalised  SCALED  AT  2^ 

AND  - N L IS  IN  XI  . 

INFINFLG  = f,,  A FLAG,  IS  SET  IF  TRAJECTORY  IS  REQUIRED 

TO  close  through  infinity,  is  Clear  if 
SOLUTION  IS  valid. 

PUSH  LIST  POINTER  IS  LEFT  AT  PL+ Z IF  SOLUTION 
VALID  , IS  LEFT  AT  IF  IS  SET  . 


OVERFLOW  OCCURS  IF 

> 32.0  , 


Sin  © 1.6 

1-COS  © “i  2 


REF  5 , Pg  2. 


CORRESPONPING  TO 

I e I < 3°  35' . 


MPAC  (MP AC -COCA)-  0D 

SCALED  AT  2^ 


f |3fe0  check] 

1 1 

> 32,0  . 


TO  next  page 


WS' 


mrr 

ATKM  LAS 
. MASS. 


}^SUXA.iaO^  Px  ■ 


BAMM 

p*saiw ^ 

iMwtsT 


11  APR  69 


OOMW  ^ ^ 

n P /t  /*iA  . 
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LUMINARY  ID 


DOCUMENT  NO. 

FC-3360 


SHEET  eTOF  4*3 


FROM  PRECEDING  PAGE 


POLYCOEF) 


A ME&ATIVE  0^  MEANS 
CLOSURE  THRU  INFINITY 
IS  REQUIRED  . 


(^D  — MPAC 
scaled  at  2^ 


M PAC  •-  R1  A • MPAC^ 
SCALED  AT  Z° 


b IS  INPUT  TO  POLY 


/ POLY \ 

EVALUATE  THE  SERIEs\ 

3 5 7 

LEAVE  RESULT  IN  MPAC 
SCALED  AT  / 

\ FC-3070  / 


THE  INFINITE  SERIES  IS  APPROXIMATED  BY  A POLYNOMIAL  OF 
DEGREE  b.  THE  COEFFICIENTS  USED  ARE  THE  RESULT  OF  A 
CHEBYSHEV  POLYNOMIAL  APPROXIMATION  TO  THE  GIVEN 
INFINITE  SERIES.  SEE  REF.  6 AND  REF.  2 , PAGE S S91-395. 
THE  COEFFICIENTS  USED  IN  THE  SUBROUTINE  ARE  I 
1.000000000  0.111006584 

-0.333  333540  -0 . 094- 5Z8  1 9 6 

0.200  000  784  0.081  388  408 

-0.143802  172 


0D  •*'  ■ MPAC 

SCALED  AT  a*" 


><N  = -VD7fT’  IS  THE  N OR M ALIE ED  V ALU E OF  X . 

» r tti) 

THE  MULTIPLICATION  BY  2“^  IS 
ACCOMPLISHED  BY  SHIFTING. 


(3  60  SW) 


■RUE360X 


2Tr 


0X)*-MPAC—  - <^D 


V RIA 

SCALED  AT 


IF  WAS  SET  TWE  RECIPROCAL 
CALCULATION  ACTUALLY  COMPUTED 
AN  corresponding  TO  AN  ANGLE 
OF  3GO°-e.  THIS  calculates  THE 

Xn  corresponding  to  e. 


TO  NEXT  PAGE 


INSTMnrATKM  Ut 


AP0U.0 

GUiOANCC  AND  NAVIGATION 


CONIC  SUBROUTINES 



DOCUMENT  NO. 

LUMINARY  ID  FC“3360 


SHEH  29  OF  43 


{360CHECK  ) { RE5ETXZ) 


COME  MERE  UJi.  OVfcRELOV^ED. 

CAUCOUATE  <X  U5INO  RECIPROCAL  FORMULA. 


SET  PUSH  LIST 
POINTER  TO  (t>V> 


SET 

■Fuj  (360  svu) 


SET  t,  = 1 


I 1 tos  e - SIN  e cot  y)  I 

^D  — MPAC  — I • CO&A) 

SCALED  AT  Z'* 


REF  S , P,  3 . 


341)  MPAC*- 

SCALED  AT  Z'^ 


MPAC*-  Dl/16  SET  V,  = 1 , SCALED  AT  Z* 

~ i ' 

^ / >1  ROUTINE  GOES  THROUGH  LOOP 

J 3 TIMES  , L GOING  FROM  1 TO  3. 


STORE  v;,  , XT 


ZT>  MPAC, 

4D  MPAC^j 

SCALED  AT  Z^ 

scaled  ATZ® 

FORM  "nC-; 

MPAC  RIA 

Scaled 

* 34D  + 4D 
AT  2® 

^TE5T\  - 
vMPAO/ 


MPAC-^v/MPAC  + ZD 
SCALED  at  Z^ 


IWFINITY 
S.  SH  30/ 


LOOP  AGAIN 


YES I 

HAVE  GONE  THROUGH 
LOOP  3 TIMES 


L!:  ji" 

MPAC 


a.)/ 


iSkc 

SCALED  AT 


1 L L + i 

i.  ^ 

xz-«“  x: 

. - 1 

POLTCOSF 

GO  BACK  AND 
EVALUATE  y^4. 


(l/WLOOP) 


im  00900 

- , „ mmmBL  0m  wurtCATioN 

WMMMEffraVKM 

eiwwwqc.  fMUS. 
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RELATING  EQUATIONS  IN  SUBROUTINE  TO  EQUATIONS  GIVEN  IN  REFRENCE  5 


THE  EQUATIONS  USED  IN  SUBROUTINE  GETX  FOR  CALCULATING  THE  VARIABLE  X ARE  NOT 
IDENTICAL  TO  THE  EQUATIONS  GIVEN  IN  REF.  S j PAGES  2 AND  3 , BUT  ARE  AN  EQUIVALENT 
SET  OF  NORMALIBED  EQUATIONS.  TH  E FOLLOW  I NG  DEMON  STR  ATES  THEI  R EQUIVALENCE  . 


NOTATION 

r = POSITION  VECTOR  MAGNITUDE 
T = FLIGHT  PATH  ANGLE 
p = SEMI  - LATUS  RECTUM 
Pn=  P/r 


= RECIPROCAL  OF  SEM  1 - M A J OR  AX  I S 
^ =*  r o<- 

e = TRANSFER  ANGLE 
Y = UNIVERSAL  VARIABLE 
“ X/V^ 


THE  VARIABLE  X CAN  BE  EXPRESSED  EXPLICITLY  AS  : 


fi-  ^ 

) + — 1 

'—.V — 1 

Wb 

3 

' 5 ' 

WHERE  THE  VARIABLE  W|_  IS  THE  VALUE  IN  A SEQUENCE  DEFINED  RECURSIVELY  AS  : 


= (t 


sir,  e 


cos  0 


CO+  V") 


.=v 


“X.  i-  W‘;  . 


L-l 


WC-1  for  u = B,  3, 


IT  HAS  BEEN  ESTABLISHED  THAT  IT  IS  SUFFICIENT  TO  GO  ONLY  TO  TO  EVALUATE  X WITH 
THE  REQUIRED  ACCURACY.  THUS 


W4  = y oc  + Wj^ ' 

+ W3 

AND 

[l  ^ I 

' + 

1 c V .. 

- 

r W4 

I'  W4^  1 

5 ''W4^>' 

The  subroutine  evaluates  a variable  ojI  recursively  through  uu^  as  •. 

sir  6 J.  \ / p ' 

CO+  r j V -F  > 


cos  6 


^L= 


FOR  c 


2,3,4 


THE  RELATION  BETWEEN  anD  Wl  iS  AS  FOLLOWS  I 

w,  = -/P  w, 

w J = f uuj'i'  + Uii  r + r W ' H \J~P  W,  = 

w 3 = uj  -t-  *ju  2 = ^ roi.  + ■*"  "\/^  Wj  = W3 

UJ4  • -h  UJ3  = -\/ra<.  + ' -h  "\/^ ^^3  ■=  '^4 

SUBSTITUTING  FOR  IN  THE  EQUATION  FOR  X GIVES  '. 

W<.  W4 

^ •••]  ■ i^EP^ACING 


r oc  BY  cx  , 


GIVES 


YP 


_L 

UU4 


LET  tx  = ;j;-  AND  b = =x  o.^ 


= 2* 


U), 

1 


AND  SUBSTITUTE  IN  EQU  ATI  ON  TO  GET 


^1-  ^b+  Y •• 


] ■ 


THIS  IS  THE  FORM  OF  THE  EQUATION  AS  IT  IS  CODED  IN  THE  SUBROUTINE  USING  THE 
ABOVE  VALUES  OF  <X  AND  b . 

FOR  THE  RECIPROCAL  CASE  j THE  RECIPROCAL  OF  Wi  IS  GIVEN  BV 


W, 


«ii  n © 


1 cos  © - si  n 6 CO+  T ' 


(^)  • 


MfT 

mmmtMtiam  urn 

ommmu.  mass. 

i 

/VQUO 

MB  BBICATION 

CONIC  SUBROUTINES 

(getx) 

MMM  T-.,e44*«W^ 

ZiNAY 

f»C«R 

^ OOCUMENT  NO. 

LUMINARY  ID  FQ—SSSO 

*l*«lSTy<3“  /M.'AWHAiji-rv 

3/ JVi-4i 

BOCXW  4^  

A VARIABLE  V;.  IS  DEFIKIEB  RECURSIVELY  IM  REF.  E AE 
V,  = 1 


V'u  = -t-Vt-,  FOR 

THE  RECIPROCAL  IS  DEFINED  AE 

W+ 

INE  EVALUATES  INSTEAD  THE  VARIABLE  ^ AND  VARIABLE  LT;.  Rl 
AS  ••  " 

1 sin  0 ( \ ifiirrr  ^ 

~ 1 + cose -sin  eco+T  ivp;;/  , Vp;r  “ V p , 


THE  SUBROUTINE  EVALUATES  INSTEAD  THE  VARIABLE  — AND  VARIABLE  LT;.  RECURSIVELY 
THROUGH  as;  ^ 


1 _ am  9 

I 1 + cos  e - si  n e CO+ 


THE  RELATIONS  BETWEEN  ^ ^ND  Vi,  ARE  AS  FOLLOWS". 

— * T=r  -V  and  hence  - .2^. 

uji  Vr”  UJ^  Wi*  ’ 


in  = Vi 


.^  + in*  + ^ 


SUBSTITUTING  THESE  VALUES  OF  AND  V*  BACK  INTO  THE  EQUATION  FOR—  &IVES 

Wj 

-L  = /-L  \ / = /V^  / _ 

W,  I W,  j /V4  I lUl  / v-4  Uli  0-4 


SUBSTITUTING  THIS  INTO  THE  EQUATION  FORK  GIVES 

^ _ Z*VP  r.  _ ‘ / F » . 1 _ , 


1 - 1 

f ] 

1 4-  ^ cd  ^ i 

f . 1 

1* ' 

* s'*! 

[ U),=  xr^^J 

1 -H  — oC  1 

LETTING  Ol  = and  b « oI  k,  A*  = J AND  RECALLING  THAT  = o<.r  , GIVES 

THIS  IS  EXACTLY  THE  SAME  FORM  FOR  EVALUATING  AS  IN  THE  PREVIOUS  CASE, 
USING  THE  ABOVE  VALUES  OF  Q.  AND  b. 


WtUO 

aviiMp  m imtmHm 
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(6ETX) 

I BOCUMIlir  NO. 
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^3«v  4 i SHOT  33  or  43 


I 


STORE  RETURN  ADDRESS 
IN  RTNPRWt 


TH\S  FORCES  GEOM 
SUBROUTINE  TO 
CALCULATE  IAm. 


THIS  SUBROUTINE  COMPUTES  THE  CONIC 
PARAMETERS  Pn  , co+  T FOR  A GIVEN  TIME  t-i. 
CALLED  BY  •• 

TIMERAD  , TIMETHET 
INPUT  ; 

1)  <(iD„  = CCtiljTHE  initial  POSITION  VECTOR  , 

IN  meters  AT  . 

2)  MPAC^,  = Y f-tj)  , THE  INITIAL  VELOCITY  VECTOR, 

IN  METERS/CSEC  , AT  a''/2®  . 

3)  XI  = INDEX  VALUE  USED  TO  SET  UP  THE 

PROPER  TABLE,  IS  -2  IF  EARTH  IS 

CENTRALBODY  , IS  -lOD  FOR  THE  MOON  . 

4)  PUSH  LIST  POINTER  IS  AT  6D  . 


IS  CLEARED  HERE, 
MAY  BE  SET 
SUBSEQUENTLY 
BY  CALLER . 


output; 

l)  RlA  = <=tN,  THE  RATIO  OF  1 C (t ,)  j TO  SEMI-MAJOr| 
AXIS  , AT  . 

P = MPAC  = Pn  , THE  RATIO  OF  THE  5EM|-LATU5| 
RECTUM  TO  1 , AT  2*. 


SET 
S6(GEOMSGN)TO 
A positive  VALUE 


GEOM 


THIS  FORCES  V 
TO  BE  CALCULATED 
IN  RANGE 
(0°,  180°)  . 

GEOM 
input: 
l)ODv=C(t0 


3)  COGA  = c-Q+y,  THE  COTAN  OF  THE  FLIGHT 


4) 


/CALCULATE 
y£.'mY,cosYi 
SH35 


XI  = 


output; 

1)  Rl  = lr(ti) 
2')MPAC„=  Y(t,)  2)  MAGVEC2=  v(tO 

3) GE0M5GN  = Sg  3)MPAC  = 3tD  = sinr 

4) N0RMSW  = fi  +)(JD-  cost 

5-)UNv=  liw 
4)UR1,-U,n 
7)  UZv  = !i  VI 

THIS  DIVISION  Wll_l_  SET 
OVERFLOW  INDICATOR 
IF  y NOT  IN  THE  RANGE 
(V°47.5',n8°12.5') 


SET  UP  yvL-TABLE 

SET  UP  >n-TABLE 

FOR  EARTH 

FOR  MOON 

CENTRAL  BODY. 

CENTRAL . 

PATH  ANGLE,  MEASURED  FROM  THE 

vertical  ) AT  Z^. 

UNv  = y=  N 5 A UNIT  VECTOR  NORMAL  TO 
PLANE  OF  THE  INPUT  VECTORS  , AT  2*  . 

S)  R1  = THE  magnitude  OF  £:(C,), 

IN  METERS,  AT  2^’/ 2^’’  . 

6)  UR1„  = iim  A UNIT  VECTOR  IN 
DIRECTION  OF  C(.±i)^  AT  2T 

7)  MAGVEC2  = vrt,),  THE  MAGNITUDE 

OF  IN  METERS/CSEC,AT272‘. 

8)  U2v  = lAvi  , UNIT  VECTOR  IN 
DIRECTION  YCLi")  , AT  2' . 

9) /-i.-table  appropriate  to  either 

EARTH  centered  OR  MOOKJ 
CENTERED  SYSTEM. 

10)  OVIND  = THE  overflow  INDICATOR; 
may  be  set  in  CALCULATION 
OF  CO+  y. 

11)  COSAFLAG  =Er-  CLEARED  . 

12)  PUSH  LIST  POINTER  AT  0D  • 


X 


r(Tt)  v(-b,)^ 


0D  R1  • MAGVEC  2^  • 1/MU 
SCALED  AT 


=_2  

RIA  Dl/32  - 0D 
SCALED  AT  2'^ 


oA  AND  ARE 
NORMAUZ-ED 
VALUES  . 


Pn  = 


C3  sin  y 

■ MPAC  --  0D  • 3&D - 3tD 
SCALED  AT  2^ 


THE  VALUES  OF  sin  T STORED 
IN  3feD  BY  GEOM  MAY  HAVE 
THE  WRONG  SIGN. 


RTN  PRM 


■x  N , Pn  , ^°T  Y,  li , r (4.,)  j 
ri , vCL  i)  , E V 1 , 

Fr  = 0,  -TABLE 


ATOUO 

WICMCE  MB  WWKATION 
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(par  AM) 
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OOCUMEHr  NO. 

FC-3360 


S«n  34  OF  43 


= (aOu 


MA&VEC2  — — I MPACvl 
SCALED  AT  Z" 

UZv  — UNIT(mPACv) 

SCALED  AT  2' 


= |aJ 

— = Co  l)uNlT 

R1  — 1 ^Dvl 
SCALED  AT  2“. 
URl,  — — UNIT(0Dv) 
SCALED  AT  Z*- 


0D  — • U2^ 

SCALED  AT  Z* 


GIVEN  TWO  VECTORS  Hi  AND  a ,THIS  SUBROUTINE 
COMPUTES  THE  SINE  AND  COSINE  OE  THE  ANGLE  <t> 
BETWEEN  THEM;  AND  OPTIONALLY  A UNIT  VECTOR 
V!.  N norm  AL  TO  THE  PLANE  DEFINED  BY  THE  VECTORS  . 

CALLED  BY  ; PARAM  , LAMBERT 
I NPUT  : 

1)  PLv  = Di  ,THE  first  vector  , AT  Z""  , WHERE  PL  IS 

A LOCATION  IN  THE  PUSH  LIST  SUCH  THAT  04  PL430D. 

2)  MPACy  = , THE  SECOND  VECTOR  , AT  Z"  . 

3)  GEOMSGN  = Sg  , A signed  VALUE  , IF  POSITl  VE  THEN 
4>  IS  FORCED  INTO  THE  RANGE  CO°,  180°)  AND 
CORRECT  AS  COMPUTED,  IF  NEGATIVE  THEN  <*>  IS 
FORCED  INTO  the  range  (180°,  3S0°)  AND  U kj  'S 
COMPLEMENTED  . 

4)  NORMSW  = Fz  , A FLAG  , IF  SET  DO  NOT  CALCULATE 
I^M  , IF  CLEAR  CALCULATE  Un  . 

5)  PUSH  LIST  POINTER  IS  AT  PL+ 6 , WHERE  PL  IS 
DEFINED  ABOVE  . 

OUTPUT ; 

i)  Ri  = j the  magnitude  of  Dz  ; at  Z*^. 

Z)  MAGVECZ  =>lz  , THE  MAGNITUDE  OF  T)  ^ , AT  Z"  . 

3)  MPAC  = sm  <<>  , WHERE  4>  IS  ANGLE  BETWEEN 
AND  !r\^  , AT  Z'  . 

4)  PL  - cos  <♦>  , AT  Z'  , WHERE  PL  IS  DEFINED  ABOVE  . 

5)  UNv  = \±N,  A UNIT  VECTOR  NORM  AL  TO  PLANE  OF 

input  vectors  , AT  z’ . 

6)  URlv  = , UNIX  VECTOR  PARALLEL  TO  r\;  , AT  Z^  . 

7)  UZ^  = , UNIT  VECTOR  PARALLEL  TO  Q ^ , AT  Z'  . 

8)  PUSH  LIST  POINTER  AT  PL+  Z. 


(NORMSw) 


FORM  Itll 


SET 

DO  NOT  COMPUTE  l^N 


SIN  0 = 1n|  ■ Sq 


MPAC  Impac^I  - sign  (geomsgn) 
SCALED  AT  2^  . 


3feD  — ImpaCvI 
SCALED  AT  2' 

MPAc^'^  unit(mpac^)- signCgeomsgn) 
SCALED  AT  2’ 


ll,  Hz,  sin  <t>)  coscj) 


OVERFLOW  OCCURS  IF  THE  VECTORS  ARE 


<^^O^RFLO^^ 1 

NO 

SHIFT  MPAC^RlCbHT 

|-*  1 PLACE 

MPAC^  STOep  LI 

SCALED  AT  Z^  “ 

sin  0 = 

MPAC  — 3feD  • 

SCALED 

, 

|n|  • Sg 

sign(&eomsgm) 

AT  2' 

QPRET 

'll,  Tz  , sin,0i  cos  6 


msuHMMmrMH  lm 

CMMtlBOE,  MtSS. 
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(newst^t^ 


FORM  li,.,[r(t,)-X^C(5) 

<t)Dv-^  UR1„[ri-XSQC(XI)] 
SCALED  AT  2"] 2® 

1 

FORM  Y 


1^*-  2.1 


5 


lU 


IPACy  — WEC^[T-X^-y  • 1/ROOTMU  • S(Xl)] 
SCALED  AT 


L v/A  J 


0I)^,—  MPAC^-^  0Dv  + MPACy 

SCALED  AT  a»’/  2^'' 


X(Li)  = 1 

MPAC  1 

MPACvl 

SCALED  AT  Z»V2” 

NORMALIZE  AND  STORE  r(t2) 

R2— MPAC 

SCALED  AT  2”-«y2’'’-''> 


THIS  SUBROUTINE  CALCULATES  THE  NEW  STATE 
vectors  CCba)  AND  x(-bj)  . 

IT  \S  CALLED  by:  TIN\ETHET 

LAMBERT  (AT  LOCATION  LAMENTER) 

\nput: 

1)  VVEC^=  Vttj), THE  initial  VELOCITY  VECTOR,  IN 

meters /CSECL,  SCALED  AT  E-Vi®- 

2)  R1  = THE  magnitude  OF  INITIAL  POSITION 

VECTOR,  IN  METERS,  SCALED  AT 

3) UR1„=  a,.,  ^A  UNIT  VECTOR  IN  DIRECTION  OF  INITIAL 

POSITION  VECTOR  T (.'ti’l  , SCALED  AT  Z’-  . 

4)  X =X  , THE  UNIVERSAL  VARIABLE,  SCALED  AT  iTIZ"’. 

5)  XI  = if  I SCALED  AT  z‘’  . 

4s(Xl)  =s(t),  SCALED  AT  2^  . 

T^SQCCXI)  =xV((),  SCALED  AT  2'*’/z'^’. 

0)T  ”T^1, THE  TRANSFER  TIME,  SCALED  AT  2"^®  . 

9)  THE  /J--TABLE  APPROPRIATE  FOR  EITHER  THE 

EARTH  OH  MOON  . 

lO)  PUSH  LIST  POINTER  IS  AT  THE  GENERAL  VALUE 
PL  IF  ENTRY  AT  NEWSTATE,  AT  PL  + fe  IF 
ENTRY  AT  LAMENTER, WHERE  PL68D 

output; 

V)<fcDv=  l;fti'),THE  TERMINAL  POSITION  VECTOR, 

IN  METERS,  SCALED  AT  2”/ 2®"'  . 
Z)mpAC,  = Y(tj),THE  TERMINAL  VELOCITY  VECTOR, 

IN  METERS/CSEC, SCALED  AT  z’/2'. 

3)  PUSH  LIST  POINTER  AT  PL+ E NORMALLY',  AT 
PL  IF  ROUTINE  WAS  entered  BY 
LAMBERT  AT  LOCATION  LAMENTER,  , 
WHERE  PLISTHE  entry  VALUE. 


^ N THIS  IS  THE  ENTRY  POINT  FROM  THE  LAMBERT 

-{^LAMENTERJ  routine  , in  WHICH  case  IS 

NOT  CALCULATED  IN  THIS  ROUTINE  . 


NORMALIZING  VALUE  IS-Nl,  STORED  I N Xl 


form  ] 

r ROOTMU  - x / / \ 

6D„—  URly|^ — ^{xi  -SCXI) 

SCALED  AT  2>-S/2'3 

-Di/iza) 

) 

FORM  YCl 


if  I 

L -(t.) 


MPAC, 


— VVEC„  j^Dl/25fe  - 

SCALED  AT  2'V  2'^ 


I 


^ ("t  = U:  r 1 

"mf 

< 

=AC^-^dT+  MPA 
SCALED  AT  2"'  I 2® 

+ V(ti) 

r.  x-c(?n 
L F(t=.) 

- 

QPRET 

srTtHTYTtT 
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THE  ITERATOR  SUBROUTINE  GENERATE'^  BY  UNEAR  INTERPOLATION  AN  INCREMENT 
Aa  IN  the  INDEPENDENT  variable  a 5 THUS  PROVIPING  A NEW  ESTIMATE  OF  X 
TO  PRODUCE  A VALUE  OF  THE  DEPENDENT  VALUE  ^ CLOSER  TO  THE  DESIRED 
VALUE  ■ 

CALLED  BY  : LAMBERT,  P 10  AND  Pll  . 


1)  ORDERSVJ  = F+,  A FLAG  , IF  CLEAR  SUBROUTINE  ACTS  AS  A FIRST  ORDER 

iterator  , IF  SET  ACTS  AS  SECOND  ORDER  ITERATOR  . 

2)  SLOPESW  =f-i,  A FLAG,  IF  SET  IS  FIRST  PASS  THRU  AND  MUST  USE  BIAS 

METHOD  TO  CALCULATE  Ab  , IF  CLEAR  IS  SUBSEQUENT  PASS  AND  CAN 
USE  THE  REGULA  FALSI  METHOD  TO  CALCULATE  Aa  . 

3)  DEP  = 1^5  PRESENT  VALUE  OF  DEPENDENT  VARIABLE  , AT  Z"' 

4)  DEPREV  PREVIOUS  VALUE  OF  1^  , AT 

5)  DELDEP  - 5 ERROR  'N  u , EQUAL  TO  y-FiM/vL-'i-  , AT  S’"  . 

t)  DELINDEP  “At,  INCREMENT  IN  INDEPENDENT  VARIABLE  THAT  PRODUCED 
THE  PREVIOUS  increment  ^-,^',AT  2"  . 

7)  INDEP  •=  m J PRESENT  VALUE  OF  INDEPENDENT  VARIABLE  , AT  2 " . 

8)  TWEEKIT  ■=  K,  A FRACTION  BETWEEN  O AND  1 , DETERMINES  MAGNITUDE 

OF  Aa  ON  FIRST  PASSTHROUGH  SUBROUTINE  , AT  Z°  . 

95  MAX  - J^MAX  , PRESTABLISHED  upper  bound  on  » , AT  2’’  . 

10)  MIN  - jImin  j PRESTABLISHED  LOVAIER  BOUND  ON  a , AT  2’’  . 

11)  PUSH  LIST  POINTER  MUST  BE  AT  <i>D  . 

OUTPUT  : 

1)  DELINDEP  - MPAC  - Aa,  A NEW  INCREMENT  IN  E SUCH  THAT  THE  NEW  VALUE 

OF  a.,  EQUAL  TO  Z:  + At  , WILL  PRODUCE  AN  ERROR  i^err  OF  SMALLER 
MAGNITUDE  , AT  2''  . 

2)  SLOPESW  =Fa5  A FLAG,  IS  CLEARED  BY  SUBROUTINE  ON  THE  FIRST  PASS 

FOR  SUBSEQUENT  PASSES  . 


3)  MAX 


, IF  ^4  IS  CLEAR  A NEW  UPPER  BOUND  MAY  BE  ESTABLISHED  BY 


THE  subroutine  , AT  2"  . 

4)  MlN  = Jl  '5  clear  A N EW  LOWER  BOUND  MAY  BE  ESTABLISHED  BY 

THE  SUBROUTINE  j AT  2". 

5)  PUSH  LIST  POINTER  ISATi^D  • 


ITERATOR) 


IS  FIRST  PASS  SUI 

; THRU  SUBROUTINE  . PAI 

CLEARS CLEAR  Fj  FOR  SUI 

FafSLOPESW)  SUBSEQUENT  PASSES 
J THRU  SUBROUTINE. 

BIAS  METHOD 

MAX~-*-MIn)  V'('^ERg) 

MPAC  -^(MAX-TWEEKIT-  MIN  • TWEEKIT). 

signCdeldep) 

SCALED  AT  2". 

ON  FIRST  PASS  IS  NOT  KNOWN  SO 
Aa  MUST  BE  COMPUTED  BASED  ON 
UPPER  AND  LOWER  BOUNDS  . THE 
SIGN  OP  At  IS  DETERMINED  BY 
SIGN  OF  i^eiRR  , 


^ CLEAR 

SUBSEQUENT 
PASSES  THRU 
SUBROUTINE  . 


REGULA  FALSI  METHOD 


dep-deprev 
SCALED  AT  a"" 


//  ^4  \ 

(ORDERSW) 


IS  A SECOND 
I ORDER  ITERATOR. 


CLEAR 
IS  A R RST 
ORDER  ITERATOR. 


MPAC  — iMPACl  • SieN(DELDEF^ 
SCALED  AT  . 
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LUKMNARV  iD 


FROM  PRECEDING  SHEET 


SGNCHECK 


A negative  £.3  IMPLIES  THE  NEW 
a WILL  EE  LESS  THAN  PRESENT  z AND 
HENCE  THE  UPPER  BOUND  CAN  BE  MOVED 
IN.  I 


MPAC 

SCALED  AT 


STORE  IN  PUSHLIST. 

A POSITIVE  IMPLIES  THE  NEW  z 
WILL  BE  GREATER  THAN  PRESENT 
z AND  HENCE  THE  LOV^ER  BOUND 
1 CAN  BE  MOVED  IN  . 


INDEP  LOAD 


INDEP  LOAD  H . 


SET  UPPER 
BOUND  EQUAL  . 
TO  PRESENT 
VALUE  OP  2 . 


(ORDERSW) 


MAX  — MPAC 


IS  SECOND 
ORDER  SO 
LEAVE 
BOUND 
ALONE  . 


IS  SECOND 
ORDER, SO 
LEAVE 
BOUND 
ALONE  . 


(ORDER5W) 


MIN  MPAC 


MRAC-*-MlN  -MPAC-0D 


-^HAX  ~ AZ 

MRS^C-^MAX-MPAC  - 0O 


SET  LOVJER 
BOUND  equal 
TO  PRESENT 
VALUE  OF  2 . 


TEST  new  h , 
NWHICH  IS  Y 
EQUAL  TO  I — 
z H-  A H.  . 

NEW  z WILL  

EXCEED  LOWER 
LIMIT,  SO 
CHANGE  C^B.. 


■^M.Ki>Z+AZ? 

YES 


CWCRflD^) 

NOV^MAy 


U TEST  NEW  ?^WH\CH 
IS  EQUAL  TO 
TE5  , ^ A 


modngdel) 


NEW  z WILL 
BE  IN  RANGE  ( 
U MIW  5 ^ max)  • 


( MODPSDEL, 


NEW  z WILL 
EXCEED  UPPER 
BOUND , SO 
CHANGE  Az  . 


= 0.9(Amin-5£.) 

MPAC  — DP9yiO(MlN  -INDEP) 
SCALED  AT  2" 


It D 


THIS  GUARANTEES 
that  new  z WILL 
NOW  BE  GREATER 
THAN  JLmin. 


LOAD  Az 

FROM 

PUSHLIST 


_ 

MPAC  — DP  9/10  (MAX  - INDEP) 
SCALED  AT 


THIS  guarantees 

THAT  NEW  eWILLNOW 
BE  LESS  THAN  X . 


DELINDEF 

scaled 

MPAC 
AT  '2.'^ 

STORE 
NEW  AS  . 


aPRET 
AZ.,Pj  =0, 

■1  J 


the  ITERATOR  SUBROUTINE  IS  DESIGNED  TO  BE  CALLED  ONCE  ON  EACH  PASS  THROUGH  A LOOP  THAT  IS 
attempting  to  converge  on  a SOLUTION  TO  AN  EaUATION  OF  THE  FORM  , WHERE  A 

VALUE  OF  THE  DEPENDENT  VARIABLE  C^ALLED  final)  GIVEN  AND  THE  PROGRAM  IS  SOLVING  FOR 
THE  CORRESPOND\N&  VALUE  OF  THE  INDEPENDENT  VARIABLE  z . EACH  CALL  TO  THE  ITERATOR 

generates  an  increment  az  which  is  a linear  approximation  answer  to  the  ouestion  : 

IF  A CHANGE  IN  n EOUAL  TO  A z i-i  PRODUCED  A CHANGE  IN  ^ EQUAL  TO  i - C.  - 1 THEN  lA/HAT 
CHANGE  IN  z WILL  NOW  PRODUCE  A CHANGE  IN  y,  EQUAL  TO  ij.f,nau“ 'i'L  ? NEW  CHANGE  IN  z 

IS  called  AZL  and  the  values  v^L)  'iL-l  A-RE  THE  PRESENT  AND  PREVIOUS  VALUES  OP  ■) 
RESPECTIVELY.  THE  RELATIONSHIP  CAN  BE  EXPRESSED  AS  I 


^ g L-  1 
'i-i.-i 


Az  i 

^ FINAL  - 


OR  AS  azl  -(y-FiNAL-y-L)  . 


HENCE  ADDING  az  l TOzl  SHOULD  NULL  OUT  THE  ERROR  BETWEEN  AND'^  L , IMPLYING 

that  h;.+  ^ = Bi.1-  AZL  IS  THE  SOLUTION  TO  THE  EQUATION.  A NECESSARY  CONDITION  FOR 
CONVERGENCE  IS  THAT  ^ MUST  BE  MONOTON ICA LLY  INCREASING  CoR  DECREASING)  THROUGH  OUT 
THE  RANGE  (Xmim.Amax)  OF  THE  INDEPENDiENT  VARIABLE  . REFER  TO  REFERENCE  T . 


MIT 

IIRimiMMrArKM  lai 
aWMHMI,  MASS. 
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APSIDES 


STORE  RETURN  ADDRESS 
IN  RTNAPSE 


SET  PUSH  LIST 
POINTER  TO  (f> 


clear 

OVFIND 


0Dv—  RVECy 
MPAC^-^VVEC. 


LOAD  Cftj), 
Mtti)  FOR 
PAR  AM . 


THIS  ROUTINE  CALCULATES  THE  RADI  US  OF  PERICENTER  , 
RADIUS  OF  APOCENITER  AND  ECCENTRICITY  OF  A 
GIVEN  CONIC  . 

CALLED  by:  PERIAPO 
input: 

1)  RVECy  = L(-tO,  THE  INITIAL  POSITION  VECTOR  , IN 

METERS^  AT 

2)  VVECy  = THE  INITIAL  VELOCITY  VECTOR,  IN 

METERS/CSEC,  AT  2.^2®. 

3)  XL  -=  INDEX  VALUE  USED  TO  SET  UP  THE  PROPER 
M-  - TABLE  IS  - 2 IF  EARTH  IS  CENTRAL  BODV 

IS  -lOD  IF  MOON  IS  CENTRAL  BODY. 

OUTPUT  : 

1)  QiD  = rp,THE  RADIUS  OF  PERICENTER  , IN  METERS, 

AT  2^’/ 2^'’. 

2)  MPAC=  r,^,THE  RADIUS  OF  APOCENTER  , IN 

METERS  AT 

3)  ECC  = e , THE  ECCENTRICITY  OF  CONIC  TRAJECTORY, 

AT  2'*. 

4)  PUSH  LIST  POINTER  AT  ii>D  . 


^ PARAM \ 

' COMPUTE  THE  \ 
CONIC  PARAMETERS/ 
\ SH33  / 


PARAM  input: 

1) 0Dv  = r(tl^ 

2)  N\PACy=  Y(ti) 

3)  XI  = -2  FOR  EARTH, 

-lOD  FOR  MOON 


PARAM  OUTPUT  : 
1)  RIA  = °<N 
2^  p = MPAC  “ Pn 
3^  CO&A  ” coT  -r 
4")  R1  - rCt,) 

5)  yy.- TABLE 


CLEAR 

OVFIND 


ECC MPAC »-  VE1/C4-MPAC-R1A' 
SCALED  AT 


Pn  and  are 

NORMALI'ZED  VALUES. 


'^P  = - 

Pn  TCt,) 

1 + e 

iD  — 

P • R1 

Dl/8  + MPAC 

SCALED  AT 

2”/  2” 

2>-CL,)  _ 

r.  — — tq 


SCALED  AT 


'OVERFLOW. 


OVERFLOW  OCCURS  IFTRAJECTORY  IS 
HIGHLY  ELLIPTIC,  PARABOLIC,  OR 
SLIGHTLY  HYPERBOLIC. 


A NEGATIVE  VALUE  IMPLIES  TRAJECTORY 
IS  HYPERBOLIC  . 


' MAy 

LDPOSMAX 


SET  radius  of  APOCENTER  EQUAL  TO  , THE 

LARGEST  VALUE  POSSIBLE, 

WUITRP  P FOR  THE  EARTH  . 

MAX  T-Lic 


5 FOR  THE  MOON. 


RTNAPSE 


uma 

E MS  aKVECMTHM 


CONtC  SUBROUTINES 
APSIDES 


LUMINARY  ID 


KV  4 


GENERAL  INFORMATION  FOR  CONICS 


SUBROUTINES  CALLED  ON  OTHER  CHARTS 


DESCRIPTION 


CALLED  BY 


EVALUATE  A POLYNOMIAL  OF  SPECIFIED  DEGREE  DELTIIVE,  GETX 


SET  MODE  TO  TRIPLE  PRECISION 


pELTIME 


FLAGS  USED 


MEANING 


GUESSW  (f  ) INITIAL  GUESS  OF  1 INITIAL  GUESS  OF 
cot  T NOT  AVAILABLHcot  IS  AVAILABLE 


WHERE 

SET 


INITVEL 


WHERE 

CLEARED 


INITVEL 


IS  INPUT  TO 


IS  COMPUTED  BY 
LAMBERT 


ORDERSW  SECOND  ORDER 
(fj  ITERATION 


SOLNSW  (fj)  NO  SOLN  POSSIBLE 


FIRST  ORDER 
ITERATION 


SOLN  VALID 


LAMBERT, PIO  ITERATOR 


(NO  WHERE)  PIO 


LAMBERT  (2)  LAMBERT, 
TIMERAD 


RVSW  (!„ 


INFINFLG 


APSESW  (Ig) 


:j(iO,SW  (f  ) 


COGAFLAG 


SGNRDOT 
(s  .) 


DO  NOT  COMPUTE 
NEW  STATE  VECTOR 

CONIC  PASSES  THRU 
INFINITY 


POSITION  VECTOR 
OUTSIDE  RANGE 
(PERICENTER, 
APOCENTER) 


TRANSFER  ANGLE 
NEAR  360° 


NO  S(1LN  EXISTS,  I 
TOO  CLOSE  TO 
RECTILINEAR 

v(tp)  NOT  CALCU- 
LATED 


IS  MINUS  IF  TRANS- 
FER ANGLE  180 


IS  MINUS  IF  RADIAL 

VELOCITY 

NEGATIVE 


COMPUTE  NEW  P39,  P34, 

STATE  VECTOR  CSI/A  (2) 

CONIC  SOLN  EXISTS  GETX 


POSITION  VECTOR  TIMERAD 
WITHIN  RANGE 
(PERICENTER, 

APOCENTER) 

TRANSFER  ANGLE  GETX 
NOT  NEAR  360° 


TIMERAD 


SOLN  EXISTS 


TIMETHET 


TIMETHET, 
PA  RAM 


Y(t2)  IS  CALCULATED  INITVEL 


IS  PLUS  IF  TRANSFEI 
ANGLE  S 180° 


IS  PLUS  IF  RADIAL  (NO  WHERE) 
VELOCITY  POSITIVE 


(NO  WHERE) 


WHERE 

TESTED 

LAMBERT 


ITERATOR  (3) 


(NO  WTIERE) 

TIMETHET 


LAMBERT, 

TIMETHET 


(NO  WHERE) 


(NO  WHERE) 


LAMBERT, 
INITVEL  (2) 


LAMBER.T 
GEOM  (3) 

TIMERAD 


VARIABLES  USED  (BOTH  PUSH  LIST  AND  ERAjABLE) 
NAME MEANING ^ 

ALPHA  RECIPROCAL  OF  SEMI -MAJOR  AXIS  2'^ 

MIN  LO  WEK  BOUND  ON  z 2° 

COGAMIN  LOWER  BOUND  ON  cot  ■>  2° 

XMAX  MAXIMUM  VALUE  OF  x 2 ' ' 

XMIN  MINIMUM  VALUE  OF  X 2^'^ 

DE  LINDE  P Lz  2° 

DCOGA  ^cot  7 2° 

max  upper  bound  on  z 2” 

COGAMAX  UPPER  BOUND  ON  co(.  7 2^ 

l/MU  l/Ai  ^ 

ROOTMU I 2 

MIT 

u#  

DMMIMC.  MMSS. 

[ COh 

DIIAWK  y- ^ UjuLfe8 


SCALING 

LOCATION 

2-22^2-^° 

8D 

2° 

8D 

2° 

8D 

2 17/2  16 

1 

lOD 

2I7/2I6 

12D 

2" 

12D 

2° 

12D 

2" 

MO 

2° 

14D 

.,-34,„-28 

2 12  1 

14D 

2I8/2I5 

16D 

AfOtLO 

GUIDANCE  MiO  NAVIGATION 


CONIC  SUBROUTINES 

3JULfe8 

I DOCUMENT  NO. 

luminary  id  FC’3360 
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VARIABLES  USED  (BOTH  PUSH  LIST  AND  ERASABLEXCONT.  ) 


NAME 

1/ROOTMU 

X 

ITERCTRg 

COSF 

XI 

S (XI) 

XSQC  (XI) 
DEP 
T 
RI 

RCNORM 

KEPCI 

KEPC2 

TWEEKIT 

RRECT^ 

VRECT^ 

RCV^ 

VCV^ 

TC 

XPREV 

TAU 

KEPRTNg 

XKEPNEW 

EPSILONT 

DELX 

DELT 

URRECT^ 

RIVEC^ 

RVEC^ 

R2VEC^ 

TDESIRED 

GEOMSGNg 

UN^ 

VTARGTAGg 

VTARGET^ 

RTNLAMB 

s 

RTNTT 

s 


MEANING 

SCALING 

LOCATION 

i/ViT 

2-1^/2-14 

18D 

UNIVERSAL  VARIABLE  x 

2I7/2I6 

20D 

ITERATION  COUNTER 

2^4 

22D 

COS  (f) 

2^ 

24D 

2 

“n’^n 

26 

24D 

s (U 

2 ^ 

26D 

x^c  (C) 

28D 

PRESENT  VALUE  OF  y 

2”’ 

30D 

TRANSFER  TIME,  CSEC 

2^8 

SOD 

MAGNITUDE  OF  POSITION  VECTOR,  METERS 

229/22^ 

32D 

NORMALIZED  VECTOR  MAGNITUDE,  METERS 

gSg-m  12^1  -m 

34D 

^I 

2‘'^/2^® 

34D 

^2 

2® 

36D 

k,  FRACTION  BETWEEN  0 AND  1 

2° 

40D 

r (t),  POSITION  VECTOR,  METERS 

229/227 

E3,  1502 

V (t),  VELOCITY  VECTOR,  METERS/CSEC 

2'’ 12^ 

E3,  1510 

r (t),  POSITION  VECTOR,  METERS 

229/2^^ 

E3,  1534 

y (t),  VELOCITY  VECTOR,  METERS/CSEC 

2'^  12^ 

E3,  1542 

PREVIOUS  VALUE  OF  TIME,  CSEC 

228 

E3,  1550 

PREVIOUS  VALUE  OF  x 

2I7/2I6 

E3,  1552 

DESIRED  TRANSFER  TIME,  CSEC 

228 

E4,  1475 

RETURN  ADDRESS  FROM  KEPLER 

E4,  1514 

GUESS  OF  VARIABLE  x 

2I7/2I6 

E4,  1531 

CONVERGENCE  CRITERION,  CSEC 

228 

E4,  1G04 

Ax 

2'’/2ie 

E5,  1642 

‘eRR’  CSEC 

2^8 

E5,  1644 

UNIT  VECTOR 

2^ 

E5,  1646 

r (t),  POSITION  VECTOR,  METERS 

229/22^ 

E5,  1654 

r (t),  POSITION  VECTOR,  METERS 

229/227 

E5,  1654 

r (t),  POSITION  VECTOR,  METERS 

229/227 

E5,  1662 

DESIRED  TRANSFER  TIME,  CSEC 

228 

E5,  1670 

Sq,  a flag 

2° 

E5,  167  2 

Uj^,  UNIT  NORMAL  VECTOR 

2^ 

E5,  1673 

rij,  A FLAG 

2® 

ES,  1701 

TARGET  VELOCITY  VECTOR,  METERS/CSEC 

2^/28 

E5,  1702 

RETURN  ADDRESS  FROM  LAMBERT 

E5,  1710 

RETURN  ADDRESS  FROM  TIMETHET 

E5,  1710 

MIT 

imnnnrMHM  lm 
OMMMCE.  MASS. 


■k-AJC.Ag, 


luminary  id 


Arauo 

GViMHCc  /m  wmuctton 


CON\C  SUBROUTINES 


m/  4 


MCUMENT  NO. 

FC-3360 
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VARIABLES  USED  (BOTH.  PUSH  LIST  AND  ERASABLE)  (CONT.) 


. .... 

NAME 

MEANING 

SCALING 

LOCATION 

RTNTR 

s 

RETURN  ADDRESS  FROM  TIMERAD 

E5,  1710 

RTNAPSE 

s 

RETURN  ADDRESS  FROM  APSIDES 

E5,  1710 

UNIT  VECTOR 

2^ 

E5,  1711 

MAGVEC2 

VECTOR  MAGNITUDE,  METERS/ CSEC 

2^  12^ 

E5,  1717 

R2 

NORMALIZED  VECTOR  MAGNITUDE,  METERS/CSEC 

229-m  j 227  -m 

E5,  1717 

UR]^ 

UNIT  VECTOR 

2^ 

E5,  1721 

SNTH 

sin  ((j)  ) 

2^ 

E5,  1727 

CSTII 

cos  ((}>  ) 

2^ 

Ed,  1731 

1-CSTH 

1 -cos  (0  ) 

2^ 

Ed,  1733 

CSTH-RHO 

cos  (fl)  - X 

2^ 

Ed,  173S 

P 

PN  = P/rj 

2^ 

Eo,  1737 

RIA 

«N  = ri/a 

2® 

Ed,  1741 

VVEC^ 

VELCX/ITY  VECTOR,  METERS/CSEC 

2''  12^ 

E5,  1743 

ECC 

ECCENTRICITY 

2^ 

E5,  1751 

RTNPRM 

s 

RETURN  ADDRESS  FROM  PARAM 

E5,  1758 

SGNRDOTg 

s.  , SIGN  OF  radial  VELOCITY 

2° 

E5,  1754 

RDESIRED 

RADIAL  DISTANCE,  METERS 

2^9/22^ 

E5,  1755 

I.1ELDEP 

^ ERR 

2‘" 

Ed,  1757 

TERRLAMB 

CONVERGENCE  CRITERION,  CSEC 

,28 

Ed,  1757 

DE  PREV 

PREVIOUS  VALUE  OF  y 

Ed,  1701 

TPREV 

PREVIOUS  TIME,  CSEC 

,28 

E5^  ]7(U 

EPSILONL 

CONVERGENCE  CRITERION,  CSEC 

,28 

Ed,  17()3 

COG  A 

cot  7 

2^ 

E5,  1705 

INDEP 

z 

2” 

E5,  1705 

nSTsiKK^PV  9!m? ' 


CONIC  SUBROUTINES 


LUMINARY  ID 


TIME  OF  FREE  FALL 


TFF  CONIC 

Sh, 

TFFCONMU 

Sh, 

TFFRP/RA 

Sh, 

CALCTPER 

Sh, 

CALCTFF 

Sh. 

MIT  INSTRUMENTATION  LAB 

CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

Time  Of  Free  Fall 

DRAWN 

LUMINARY 

ID 

DOCUMENT  NO. 

FC-3370 

ANALST  ^ 

OOCMR  I?oS<«,^-u!VY> 

siniTi 

APPR■D-^P^A..^me;A. 

sinJid 

REV  ISHEH  1 OF  14  1 

SINCE  CONIC  CALCULATIONS  REQUIRED  FLOATING  POINT  ARITHMETIC^THESE  CHARTS  ATTEMPT  TO  INDICATE 
WHERE  SUCH  OPERATIONS  ARE  EMPLOYED , LET  REGISTER  M EE  NORMALIZED  SO  THAT  1 > M ^ 0,5. 
LET  THE  NUMBER  OF  LEFT  SHIFTS  REQUIRED  TO  BF71NGTHIS  ABOUT  BE -XI . THEN  THE  CONVENTION  USED 
HEREIN  IS  THAT  THE  NORMAUZED  CMC  VARIABLE  TFFM(e.G.)|5  RELATED  TO  THE  UNNORMAUZED  CMC 
VARIABLE  IN  M BY  t TFFM  =Ma’’^*AND  M = NORM^^CTFFM'), 

R30  APPLICATION  : THE  SPHERICAL  VALUES  OF  GRAVITATIONAL  CONSTANT  ^ ARE  USED 
DCPENDINO  ON  EARTH/mOON  CENTERED  COORDINATES  : . 

earth:  -.soosT5^?9  X io“^@  a ^'^cs/(m)  ' . 

MOON  : i/\/7i;7=. 45163595  X lo  @ cs/(m)^-' 


ENTTR  WITH  f CAUCTPER 
PCTIGEE  RADIUS^ “T ^ 


rTFFCONic)  General  Flow 


calculates; 

A)  ANGULAR  MOMENTUM 

B)  SEMI  LATU5  RECTUM 

C)  RECIPROCAL  OF 
SEMI  MAJOR  AAIS> 


[tffr^7ka)  General  Flow 


CALCULATE  PERIGEE 
AND  ATOGEE  radii 


General  Flow 


ENTER  WITH  arbitrary 
terminal  RADIUS 


<; 

/^XONIC  intern 



1 

SET  T TO 

nSECTTERMIHAL  ✓ 

MACHINE  VALUE 

1 YtS 

compute  INTERMEDIATE 

COMPUTE  INTERMEDIATE 

QUAMrmCS  USED  IN  CAL> 

^ ^ 

^ COMIC 

YES 

quantities  used  IN  CAL- 

CULATION  OF  TIME  OF  FREE 

OUTBOUND 

■V  INBOUND  ^ 

CULATION  OFTIME  OF  FREE 

FALL  FDR  AN  OUTBOUND  CONIC 

FALL  FOR  AN  INBOUND  CONIC 

/ PRESENT 
POSITION  ES5EM- 
TIALLY  AT  APOGEE 

\0R  perigee 


RECIPROCAL  0F\ 
s^^l  MAJOR  AXl^ 
>0 


TtRMlNAL  RADIUS  AND 
PRESBfT  RADIUS  ARE 
BOTH  ATPERIGCEON  A 
FARABCLA  CR  HYPERBOLA 

r»  O 


COMPUTE  TIME 
FOR|Ae|<SCP 


^MCE  IN  I ECCEN- 
TRIC ANOMAL- 
'^\IES|  < 90>^ 


YES-ASS  UME 
APOGEE 


COMPUTE  TIME 
FOR  I A E I > 90* 


CORRECT  FOR  ORBfTAL  PERIOD, 
' IF  TIME  <0  AND  IP 
COMIC  IS  ELLIPTIC  AMO 
IP  terminal  RADIUS  HAS 
NOT  BEEN  PASSED 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


APOUO  GUIDANCE  AND  NAVIGATION 


Time  Of  Free  Fall 


DOCUMENT  NO. 
FC-3370 


CAULED  by  VaS  SEQUENCE  ( FC-  STTCfJ  ~ 
To  compute  those  conic  parameters  requirec^ 
by  the  TFF  subroutines  and  establish  them 
in  the  push  list  area. 

iMPUTs;  rone^"=Bo'PREsemt  position  vcctdr  in  METERsezT^ 

VOHE  J=yg=PResCNT  veUDCITY  VECTTIB  IN  kjfcSECgSya^ 
TFF?hTMUD=Y/it  FOR  MOON  OR  EARTH 
outputs;  RMAGl,'  |e„| 

NKMAG,  =^1.32)=  RMAGE'*’ 

TFFNP„=  PLZaO  ' P- SEMI -UATUS  RECTUM 
V0NE',= 

TFFVSQo*  y'‘»PL20D 
TPFALFA  = rt  « (SEMI  MAJOR  AXIS)'^  • PUZfcD 
TFFRTALF  •VS'  • PU24D 
TFFl/ALF  = l/U  - PI.E2D 
XI  ■:  -NORM  COUNT  OF  RMA&, 

X2«  -NORM  COUNT  OF  VS 


(^TFFCONIC^ 


TFF/RTMUo-« MPACp 

i 

/ \ ENTEI 

(tffconmu; 


MPAC  MUST  CONTAIN 

\/JW  for  proper  sphere 


ALREADY  INTFFRTMU, 


RMAGlj,-* iRONEv 

NRMAGo-»— - NORM,,  (RMAGlp) 

VONEi  -• TFF/RTMUo  VOWEv 

TFFNP,-^ [enRMAG  VOHe'  x UNIT  (RONE,)]^ 

T^FVSO„-« [vONEi]^ 

TTFALFA,  -I [TFFVSO„t’'‘*‘+  TFFl/Ap/NRMAGj,] 

TFFRTALFp-—  NORM„^(v'f’“*)TFFALFAD  |’  ^ 


P=  SEMI-LATUS  RECTUM, NORMALIZeq 

Vt(used  in  COLOSSUS  o 

o<  INMETERs‘aiZ‘’^''''‘yE'^**'”3 

ViSJ  p,  2-DP-Rl/j-rs-xE] 


TEST  IS  ACTUALLY  MADE  OH  (TFPRTALF)* 
NO 


Vi< 

tffi/ale 

— 0 

■nTl/ALF„-A TFFl/4„/5GM(TFFALfAj)TT=FRTALFi 

l/*@2 


22-2  X2^, 20-2X2 


RETURN  VIA 
\ QPRET  / 


MIT  INSTRUMCKTATtON  IAS 
CAMBRIDGE.  MASS. 

DRAWN  

»/*/»' 

elikhi 

ANALST 

oocmR  (?imr.xLA 

slniJi 

APPR'D 

3h7/7e 

APaiO  GUIDANCE  AND  NAVIGATION 


Time  Of  Free  Fall 


LUMINARY 
ID 


DOCUMENT  NO. 

FC-3370 


ISHECT3  (lf~n} 


illy) 


CALLED  BY  vee  SEQUENCE  (FC- 3770)- 

CALCULATES  APOGEE  AND  PERIGEE 
FOR  A GENERAL  CONIC.  ^ 

input:  TFFNPp=  bemi-latus  rectum  I from 

TFFALFAp=RECIPROCAL  BEMI-MAIOR  AXIsf  TFFCONIC 

XI, X2  J 

output:  RAPOn=  APOGEE  ^ go/  97 

RPER°  = PERIGEE 


(tffrp/ra) 


FORM  d +e=l  + Vl“P 


PLCp-'* TFF-l  /4  D + Vl  DPS  ('-4)0-  tffaLFAd-TFFNPpI  * DPs(-4)p  =l@a'^ 

I Rp=p/(d-Fe)  P=SEM1~LATUS  RECTUM 


RPERo“* 2^'*^^'''* 

(TFFNPjyPLO 

CLEAR 
OVFIND; 
IF  ON 

ro.  = 1-  + e 

oC 

MPAC^-* PLOn  • TFFI/alFAd 

PARABOLIC 

YES^ 

s 

MPAC 

'a 

YES  ^ 

HYPERBOLIC 

s 

NO(<0)^ 

I THE  FOLLOWING  ARE  ALL  TESTS  ON  THE  VALIDITY  OF 

i THE  Fq,  CALCULATION,  if  one  IS  FAILED,  POSMAX  IS 

LOADED  AS  TAG  . 

MPACp  = o\  IS  ra,  = 0 ? IF  SO, TRAJECTORY  IS  SO  | 

CLOSE  TO  PARABOLIC  THAT  TFFi/ALFAp 
WAS  SET  TO  ZERO  AS  A TAG  . I 

]NO  (see  TFFCONIC  SH.s) 


-S-2Xe 
-2  MPACq 


SCALE  TO 


^/does\ 

MPACpCAUS 

S^^RFL^ 


I To.  UNDEFINED 

POSMAX<2=®l)@2“^ 
RAP05< — NEARONEp  = MAXI  MUM  POSITIVE 
O.p,  VALUE 


MPACn>0 


HAS  Tq,  exceeded  SCALING  ? 


IS  CONIC  ELLIPTIC  ? 


I YES  - Ta  VALID 


-MPACo  STORE  APOGEE  IN  M @ 2-^^  2 ® 


MAXIMUM  POSITIVE  VALUE  j 
WHEN  r^L  UNDEFINED  y 


.RETURN  VIA  > 
\ QPRET  / 


MIT  INSTRUMENTATION  ULB 
CAMBRIDGE.  MASS. 


APaiO  GUIDANCE  AND  NAVIGATION 


Time  Of  Free  Fall 


LUMINARY 


ORIGINAL 


CALLED  BY  VQ2  SEQUENCE  (FC-3770) 


CALCULATES  THE  TIME  OF  FREE  FALL  FLIGHT  FROM  PRESENT 

position(rn)and  velocity(vn)to  a radius  length 

SPECIFiEb  SY  Rh,  SUPPLIED  BY  THE  USER.  ! 

input:  mpac=  perigee  ok  ttrmimal  radius  (r^)  i 

TFFALFAjTFFNP,  a i 

RMA&,  NRMAG.Xi.Xe  ■ FROM  TFFCONIC  j 

TTFl/ALF,  TFFRrALFj  I 

RONC^  VONE^  * state  VECTORS  AT  PRESENT 
OUTPUT*  MPAC  sr  TIME  OF  FLIGHT  7D  PERIGEE  OR  TERMINAL  RADIUS 
NRTERM  • NORMAUIED  MAGNITUDE  OF  TERMINAL  K. 
TFFTEM  - Y =<  PZ.|2.t  OR  P^  S&n(Qo  Ro/z) 

TFFX  =o<2^  OR 


ENTER  WITH 
MPAC-  PERIGEE  RADIUS 


ENTER  WITH 

MPAC*  terminal  radius 


SET 

INDICATES  CALCTPER 

CLEAR 

TFFSW 

IS  ENTRY  POINT 

TFFSW 

INDICATES  CALCTFF 
IS  ENTRY  POINT 


TEMl  * 

TEMZ»  TEMlRh 


RTERMp-^ — MPACo 

NRTERMp  RTERMpE'"'- 

PLOCp-^ TFFl/^o-TFFALFAp  KIRTERMp 

(PLOC +2)p  PLOCj,  NRTERMo 


SAVE  TERMINAL  RADIUS  IN  RTERM 
N0RMAU2E  RTERM  THE  SAME  AS  RMAG 
TFFI/4*.25D 


YES 

CALCTFF~ 


TEMZ-TEMPe-  P 


/ IS  \ 
TFFSW  CLEAR 


IS  THIS  OALCTFF  ? 
X NO 
/ CALCTPER 


MPACj,-< |(PLOC  +Z)j, 


P=  SEMl-LATUS 
RECTUM 


ENFORCE  TPER 
CALCULATION 


MINUS  SIGN  IN  SIGNIFIES 
THAT  16  ASSUMED  TD  8EON 
THE  RETURN  SIDE  OF  CONIC. 
(ljC.  Rh<0). 

Qh  * 0 IF  ROimNE  ENTERED 
AT  CALCTPER. 

(q>,anoQo«tffqi  are 

INTERMEDIATE  QUANTITIES  USED 
IN  COMPUTING  THE  TIME  OF 
FREE  FALL  "TO  THE  SFEaFIBD 
RADIUS.) 


X IS  \ 
MPAC  <0 

V ? , 


Qh- 

-JTCUPZ 

Qo  = 

Kh-Vh 

TFFTEM5 

yMPACp 

TFFQ1„-. 

?^vome',-  konEv 

CONIC  DOES  NOT  inter- 
sect TERMINAL  RADIUS. 
SET  TFF  (time  TO 
TERMINAL  RADIUS)  7D 
LARGEST  MACHINE 
VALUE  POSSIBLE. 


RESTORE 
PL  pointer 
TO 

ENTRY  LOC. 


t = P05MAX 
MPAC  — NEARCklE 


.RETURN  VIA 
\ QPRET  / 


P05MAX  <9>  E** 

P06MAX  LOADED 
AS  TAG. 


MIT  INSTRUMCNTATION  Ukl 
CAMBRIDGE  MASS. 


APOILO  CUIOANCe  AND  NAVIGATION 


Time  Of  Free  Fall 


- LUMINARY 

f7/7o  1 D 

jn/'>o  «v 


DOCUMENT  Na 

FC-3370 

ISHCrf  5 OF 


FROM  PRECEDING  SHEET 


IS  Q-<0? 
\ 0 


TFFQl  < 0 

\ ? . 


SET  POLOC  POINTER 
TD  ENTRANCE  VALUE 


NUM  » 

DEN  = Oh  + Qo 


-RTERMj-  RMAGlp 
-TFFTEMp  + irniio 


NUM=Q^,-Qo 

DEN-TEMl-Ro' 


-TTFTEMp-  rPFQlp 
- PUOCn-  NRWAGbTFFALFAd 


NUM' NUMERATOR  FOR 
CALCULATION  OF  I. 
DEN  » DENOMINATOR  IN  THE 
CALCULATION  OFZ. 
NRMAG  5 RMAG  • S'** 
PRESENT  RADIUS 
NORMAUZtD. 
TFFALFA  IN  METERS'* 
g)2-CU+Xiyp.(k4tXlJ 


PLOCj,  MPACo  6AVE  DEN 

MPACd  I PLOCp  I + LlMf  LIM(-e2^  1.0  - Z' 


Rq  is  at  perigee  or 

APOGEE  ; ASSUME 
PERIGEE  TO  OBTAIN 
NON  “TRIVIAL  ANSWER 


#*ERMINANCY  TEST  FOR  NEAR  APOGEE/pERIGEE  CASE 
5T;  IS  I PLOCdI  > E"®®  *? 

YES 

INDETERMINATE 
1 TFFXTEST | 

no:  inoeterminant 

w Ro  'S  NEAR  APOGEE  OR  PERIGEE^ 


PLOCn-^ TFFZERDSj 


DEPENDING  ON  THE  OUTCOME 
OFTHE  FOLLOWING  TEST.  DEM  = 0 

!lJ  causes  either  t*o  op  X=0. 


IS  \ 10  TKAJECTORY  ELLIPTIC? 


NO  - PARABOLIC  OR 

HYPERBOLIC  CONIC 
Ro  IS  AT  PERIGEE 


MPAC„-« PLOCd  PLOCo-=TFFZEROS 


MIT  INSTRUMENTATION  LAI 
CAMBRIDGE.  MASS. 


APOUO  GUIDANCE  AND  NAVIGATION 


Time  Of  Free  Fall 


LUMINARY 


I^IKaUEll 


TFFXTEST 


ENTER  with:  MPAC*  |DEN|-e'“ 


Jx  = MUMyS/lDENi 

MFWCp-- — TFEXTfTRTALF,E^*'y(MPw:„  + DP(-2E)j,) 


Dp(-28)»  BOCT  OOOOO  O01Oo(b'' 

xa 


TFFRTALF 


= v/|  o<|  S 


NL 

IM 

MPACp 

BOV  INSIRUCnON  CLEARS  OVFIND 
TES  ; X 2: 1.0 


TFFELL 


(GO  CALCULATE  TFF  USING  EQUATION 
VALID  FDR  ECCENTRIC  ANOMALY 
SO”’) 


I TFFTEM,  MPAC,/PLOC.  | 
PLOC,-* — TPFTEMp 
|(PLOC+Z)p-« (TFETOvt^ 


CALCULATE  TFT  USING  EQUADON 
VALID  FOR(eCCENTRIC  ANOMALy|<30! 


■ SAVE  FDR  USE  BELOW 


Y-  P?lzl 

X'lXZ’- 

TFFTEMp  -• 5GN  (TFFTCIi^)E*(PLOC  + i)jTFN5 

TFFXp-i — (PLOC  + 2)pTFFALFAoE'’" 


■Variable  Y is  used  in 
COLOSSUS  only 


”t7x^ \ CALCULATES  POLYNOMIAL  APPROXIMATION  TO  THE  SERIES 

comSte  \ "W  = '/>;  Vr  - • 

Tfxi  \ INPUT:  MPAC  > X -cXI* 

USING  > output:  MFAC  =T(X) 

POLYNOMIAL  , 


SM.IO/ 


^ z 

MPftCp-* — ^“'PU>:D  RTERM^  MPACj^PLOC  + Z)^ 


15  R APPROACHING  Rh  ? 

YES  (VALID  TIME  IN  MPAC) 


I NO('nMEl5HeGftTlve,SOTT5TFURTHER) 
NEXT  SHEET 


ENDTFF 

sH.e 


MIT  INSTRUMENTATION  lAI 
CAMBRI06C.  MASS. 


DRAWN  /x2-.4cJj, 

matf, 

ANAIST  

OOCMR  PfVVi  r..Y^~ 

Iappr'o  firm 


iwi 


alQj7i 


APOUO  GUIDANCE  AND  NAVIGATION 


Time  Of  Free  Fall 


LUMINARY 
ID 


DOCUMENT  Na 

FC-3370 


aLQln' 


ISHirf  7 Of  11 


FROM  PRECEDING  SHEET 


TFFELL  ) TIME  CALCULATION  WHEN|Ae|  > 30“(Xi'l.o) 
ENTER  FROM  TFFXTEST  VJITH  NUM  IN  MPAC- 

ft.oCb  = den 


_ _ 

PLOCi  -• PLOC„/(MPAq;2’) 


ENTER  FROM  SAVEDEN  WITH 
PLOCo  = TFFZEROS  = Vi 


AO  = Q„  - Q„ 

VoLZT 


TFFOELOo-* TFFTEM,  - TFFQL,  TEMPORAET 

TFFTEM„-> PLOCp  Vt 

PLOCp-« — -TFFTEMsTTFl/ALFE-’'*  VoLZ 

MPACj  -• PLOCpTFFTEMpf**  Vo<Z*  « X 


TEMPORAEr  VARIABLE  USED  BELOW 

Vz 


IF  OVERFLOW  (x«l)COFmNUC(RArHER  THAN  BRANCHING 

_ BACK COULD  COMPUTE  EITHER 

WAY  FOR  X--!  CASE^ 


/ MPAC  \ 

^SI6n(mPAC)P05MAX  N POSMAX  = Z*®-1  ® z” 

\ FC-315y 


TFFXp-A MPACp  TFFX  IS  USED  BY  TFF/TRI& 


' EVALUATE  ' 
POLYNOMIAL 
\-  / 
\ SH.IO  / 


CALCULATES  POLYNOMIAL  APPROXIMATION  OF 
THE  SERIES 

T(X^  . 1/3  - X/j  * X%  - X% 

INPUT;  MPAC=  X * 

OUTPUT;  mpac=t(x) 


TEME^^Z[XT(X)-1]-  1 

TtM:=OoT'^^  TEM>SGH^lK(4F))wHCRE{>F=C0HKL'naHSFlRAN6LE 


PLOC,-«—  PlJ3Cp[Z-^MtW:,TFFXs-DPt(-i)J  DPe(-5)  = 1 (a>  Z* 
TFFTTMp-A TFFQtpT  ARMAOlp  TFFTEMp 


Y'Sgn(tem)%l 


TFFTEMp  -« SISh(tfFTEM)z  ‘■^’‘^TFFI/alF,.  TFFNP, 


Variable  Y is 
used  in  COLOSSUS 
only. 

t 

TFFMPrP-Z-'''' 

ttfi/alf=(i/„Vz”J 


Z~'’-^’‘^TPFl/ALFp(z-‘-XZ(PLDC,E  Pl/lt^ /TF^ITal^  ) -TTFDEL(?,)  | TFFTTM«Y-S 


T<)()  ) input:  mpac=x 


MPPC  = A„+  MPAC^l*  MRAC^t+MPAc(A,+  MPAc(At+(AsMPAC)^ 

RrruRN  VIA 
\ 0ANZI9  / 


ouTvirr:  mpac«t(x) 

x/r 


IP  o 6 X i 1 


X'Px 


t(x)  * POLYNOMIAL  APPROXIMATION  TDTHE  SERIES: 

1/3  - x/s  + X Vt  - xVs 

POLYNOMIAL  IS  OF  5™  ORDER,  HAVING  COEFFICIENTS 

Ao  - 1/3 

Ai  « - 1.9SS819135  E-1 
At  - L4181A64U7  E- 1 
As  - - 1.01S10S9T  E-  1 
As  - 5.G0900496G  E-E 
Aj-  - I.SSGISGSES  E-E 

RANGE  OF  POLYNOMIAL  RTX  = (O,  +l),  MAXIMUM  DEVIATION  OF  FIT  EE-5. 
RANGE  OF  X SATISFYING  ABOVE  DEVIATION  ls(-.08^  + l). 
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SUBROUTINE  CALLED  WfflCH  IS  FLOWED 
ON  OTHER  FLOWCHART 


Subroutine 

Name 

Where 

Flowed 

Description 

Where 

Called 

SIGNMPAC 

FC-3150 

Puts  DPOSMAX  into  MPAC  if 

MPAC  was  positive,  and-DPOSMAX 
if  MPAC  was  negative. 



Sh.  9 

ERASABLE  LOCATIONS  USED  (CONTINUED) 


PROGRAM  CONSTANTS 


AGC 

Tag 

GSOP 

Symbol 

Meaning 

Engineering 
Value  and  Units 

AGC  Value 
and  Units 

AGC 

Scaling 

DP(-22)j^ 

2-^2 

1 

222 

DP2(-3)p 

1@  2^ 

One 

1@  2^ 

1 

28 

DP2(-4)j^ 

1@  2^ 

One 

1(S  2*^ 

1 

2^ 

HIDPHALFj^ 

1/2 

1/2 

. 5 

2° 

HieZEROSj^ 

0 

Zero 

00000000.  0 

00000000.  0 

2° 

LIM(-22)j^ 

1-2^2 

Test  constant 
for  |D| 

1-222 

1-222 

2° 

NEARONEj^ 

CO 

1 

Machine  positive 
maximum 

228.1 

. 999999999 

2° 

PI/ 16^ 

TT 

Pi 

77 

IT 

2^^ 

TFFZEROSj^ 

0 

Zero 

0 

0 

TFFl/4j^ 

2 

Two 

2(a28 

2 

28 
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0 MANEUVER  ROUTINES 


R63-  RENDEZVOUS  FINAL.  ATTITUDE 


MAJOR 


SUBROUTINES 


ON  THIS 


FLOWCHART 


EXTENDED 
VERB  - 89 


V89PERF  REQUEST  RENDEZVOUS  FINAL  ATTITUDE  SH  2 

VS9CALL  ALIGN  LM  X OR  Z AXIS  ALONG  LOS  TO  CSM  SH  3 


- ■ 


R6  3 

3JUN€69  RENDEZVOUS  PilVAL  ATTITUDE 
LUMINARY  ID 


/ojnuetl 


FC-3400 


2 


1 


5 


KEYED  IN  BY 
ASTRONAUT 


REQUEST  \ 
RENDEZVOUS 
FINAL  / 

\attituoe  / 


PURPOSE  : TO  CALCULATE  AND  DISPLAY  THE  FINAL 
FDAl  BALL  ANGLES  REQUIRED  TO  POINT 
THE  LM  +Z  OR  +X  AXIS  AT  THE  CSM.TO 
CALL  THE  ATTITUDE  MANEUVER  ROUTINE 
(R60)  FOR  AUTOMATIC  MANEUVER 
CAPABILITY 


c(modreg) 


POO  IS 
OPERATING 


INPUT  ; EXTVBACT 
output:  set  extvbact  < 
TO  INDICATE  EXTENDED 
VERB  ACTIVITY 

(bits  3,5; 


/testxactN 

^test/set 

EXTVBACT 

(bits  3,5) 


alm/end 


turn  ON  \ 
OPERATOR 
ERROR  LIGHT/ 


NO  OTHER  EXTENDED 
VERB  IN  USE 


FINDVAC  JOB/ 
\ PRIORITY  / 
10  \ 


SCHEDULE 
veSCALL  AS 
FINDVAC  JOB 


PINBRNCH 


vENJDOFJOBy 


RS3 

RENDEZVOUS  FINAL  ATTITUDE 


8 AUG  68 

i*iAU6^(J  ^ UMTNARY  ID 


FC-3400 


NEXT  SHEET 


MIT 

iNSlWHHffMKW  LAB 

CAWWiBg.  BMSS. 

APOLLO 

GUIMfCC  ANO  NAVIGATION 

R(i3 

RFWDEZVO'JS  HNAL  ATTITUDE 

EBiwa 

umLM^ 

DOCUMENT  NO. 

T.UMINARYID 

fRR 

>S!!S 

jSv  2 1 SHEET  3 or~5 

FROM  PRECEDING  PAGE 


/ 15 

OPTIONX-i 


E-AXIS 

YE5 


MPAC^-« — UNITE, 


\ 

SCAXIS,,  — MPACv 

/ VECPOINT  \ 

/compute  desiredN 

GIM6AL  ANGLES 
\ro  POINT  VEHICLE/ 
\fC-34ZO  SHa/ 


store  desired  s/C  axis 


inputs:  SCAxis  - S/C  AX  IS  THAT  IS  TO  BE 

pointed  IN  the  POINTVSM  DIRECTION 
O'JTPUT:  3 GIMBAL  ANGLES  IN  MPAC,  Z’S  COMP 


CPHIt  -‘--■MPAC^r  STORE  GIMBAL  ANGLES 


V89RECL 
^ SH3  / 


/ BALLAMG5  \ 

''  COMPUTE  LM  ' 
FDAI  BALL 
^DISPLAY  ANGLES^ 
\ FC-34eO  SH7  / 


TERMINATE 


^GOFLASH 
V0GN18 
Bl=ROLL 
RE=  PITCH 
R3  = YAW 


input:  cphi,ctheta,cpsi 
OUTPUT:  FDAIX,  FOAIY,  FDAIZ 


DISPLAY  ball  angles 

RT-FDAIX- XXX.XX  DEG.-ROLL']  FDAI  BALL 
R2-FDAIY-XXX,XX  DEG. -PITCH  ^ANGLES  TO 
R3-FDAIZ-XXX.XX  DEG.- YAW  j POINT  VEHICLE 


PROCEED 

[clear  saxisflgI 


/ RGOLEM  \ 
^PERFORM  AUTO^ 
ATTITUDE 
\ MANEUVER  . 
\fC-3420  SHV" 


MANEUVER  SPECIFIED 
BY  ONE  AXIS 


MIT 

INSmuMnUATION  IA( 
CAMMIMt,  MASS. 

WlAWW  A.cwilli  ams 

pffcM*  ^ ini 

■ 


APOUO 

CUtOAMCE  AND  MAViGATION 


RG>3 

RENDEZVOUS  RNAL  ATTITUDE 


I.UMINARY  ID 

«¥  2 


MCUMEKT  NO. 

FC-3400 

I S»€tT  A Of  r- 


R63  RENDEZVOUS  FINAL  ATTITUDE 

SUBROUTINES 

ON  OTHER  CHARTS 

CHKPOOH  TEST  CONTENTS  OF  MODREG 

TESTXACT  TEST  EXTENDED  VERB  ACTIVITY 

R02B0TH  IMU  STATUS  CHECK 

LOADTIME  LOAD  PRESENT  TIME  INTO  MPAC^p 

CSMCONIC  CSM  ORBIT  INTEGRATION 

LEMCONIC  LM  ORBIT  INTEGRATION 

VeCPOINT  COMPUTE  DESIRED  GIMBAL  ANGLES  TO  POINT  VEHICLE 
BALLANGS  COMPUTE  LM  FDAI  DISPLAY  ANGLES 

R60LEM  PERFORM  AUTO  ATTITUDE  MANEUVER 

FALTON  TURN  ON  OPERATOR  ERROR  LIGHT 


CLEARED  TESTED 


3 AXISFLG 


DISPLAYS 


SET-MANEUVER  SPECIFIED  BY  THREE  AXES 
CLEARED-MANEUVER  SPECIFIED  BY  ONE  AXIS 


USED 


Rd-OPTIONX-OPTION  CODE  FOR  ASSUMED  TRACKING  ATTITUDE 

R2-OPTIONX+1 -TRACKING  ATTITUDE  +2  AXIS- PREFERRED  SH  3 

|_^2-+X  AXIS- OTHER 


Rd-FDAlX-XXX.XX  DEG.-ROLL")  . 

R2-FDAIY- XXX.  XX  DEG. -PITCH  ngi  F. 

R3-FDAIE- XXX.XX  DEG.-YAW 


La-  +x 


FDAI  BALL  ANGLES 
TO  POINT  VEHICLE 


ERASABLES 


MEANING 


POINTVSMy 

LINE-OF-SIGHT  VECTOR 

SCAXIS  V 

DESIRED  SPACE  CRAFT  AXIS 

CPHI 

CTHETA 

CPSI 

DESIRED  GIMBAL  ANGLES 

FOR  MANEUVER 

UNITS  SCALING 

— 

i B1  I 


APOlU) 

CUIOANCE  AND  NAVIGATION 


RG3 

RENDEZVOUS  PINAL  ATTITUDE 


LUMINARY  ID 


iO 


R62  CREW-  DEFINED  MANEUVER 


/ V.49E  \ 

KEYED  IN 

\ START  \ 

AUTOMATIC 

i ATTITUDE  / 

\ MANEUVER  / 

BY  ASTRONAUT 

PURPOSE -TO  PROVIDE  THE  CREW  WITH  THE 

ABILITY  TO  SPECIFY  A FINAL  VEHICLE 
ATTITUDE  FOR  USE  BY  A LGC- 
CONTROLLED  ATTITUDE  MANEUVER 


(CREVWvlANm 


'CHKPOOH 

TEST 
c(modreg) 

FC-3100 


TESTXACT 

/test/  set 
EXTV8AC1 
(BIT  3) 
FC-3100 


(RiitDISP  = RC'Z.FLASH) 


r 


R6g  FLASH 
^FINDVAC  JOE 
• PRIORITY 

10 

SHZ 


^alm/end  ^ 


FALTON 


TURN  ON 
OPERATOR 
, ERROR  LIGHT/ 
FC  -3090 


SCHEDULE 

ATTITUDE 

MANEUVER 


\^END  OF 


G 


R62  FLASH, 


GOFLASH 


ENTER 


NEW  GIMBAL 
ANGLES 


V06N2S 

DISPLAY  DESIRED 
GIMBAL  ANGLES 
, THETAD  IN  RljRg;R3/ TERMINATE 


Rl-CPHl  - XXX.XX  DEG.-OUTEr'^ 

R2-CTHETA-XXX.XX  DEG.- INNER  > FINAL  G1 M BAL  ANGLES 
R3-CPSI  - XXX. XX  DEG.-MIDDLeJ 


PROCEED 


vENDEXT 


MANEUVER 
SPECIFIED  BY 
THREE  AXES 


R60  LEM 


'PERFORM  AUTO 
ATTITUDE 
MANEUVER 
FC3420  SHE  , 


^ENDEXT  ^ 


«tT 

HvsitiHnimrKM  las 
c/mmmx..  mass. 


mMm  <P.M.C2)cidr7 


AflMtST 

Boam 


l23JUL6a 


I2AU64V 


go /f CVS- 


Anxio 

GWMMCE  AM  NAVICATION 


CREW  DEFINED  MANEUVER 


\SBUUi  LUMINARY  ID 


DOCUMENT  NO. 

FC  -3410 


I SHttT  A Of  3 


RfcZ  CREW  DEFINET)  MANEUVER 


subroutines 

ON  OTHER  CHARTS 

CHRPOOH  TEST  CONTENTS  OR  MODREG 

TESTXACT  TEST  /set  EXTVBACT 

FACT  ON  TURN  ON  OPERATOR  ERROR  UGHT 

RSOLEM  PERFORM  AUTO  ATTITUDE  MANEUVER 


FLAGS  MEANING  SET  CLEARED  TESTED 


3AXIS  FLG 

SET  - maneuver  specified  BY  THREE  AXES 

CLEARED  - MANEUVER  SPECIFIED  BY  ONE  AXIS 

SH2 

DISPLAYS 


USED 


V06N2a 


Rl-CPHI -XXX.XX  DEG.  - OUTER 
R2-CTHETA-XXX.XX  DEG.-  INNER 
R3-CPSI  -XXX.XX  0E6.- MIDDLEj 


FINAL  GIM8AL 
AN&LES 


SHE 


R60  - Attitude  Maneuver 


Major  Subroutines  On  This  FTowchart 


R60LEM 

Sh. 

2 

VEC  POINT 

Sh. 

5 

BALLANGS 

Sh. 

9 

CHKLINl  S 

Sh. 

10 

RELINl'S 

Sh. 

10 

G+N,  AUTO 

Sh. 

11 

ISITAUTO 

Sh. 

11 
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DRAWN 

PRr.«ir^'T7~ 

'ism 

ANALST 

OXMR 

REV  3 ISHEH  1 OF  1 9 i 

/ KAAUECADR  \ 

/ A RETURN 
CADR  SAVED  BY 
\ BANKCALL 


SAVE 
RETURN  IN 
TEMPR  60 


REDOMANN 


attitude  maneuver 

inputs;  initial  attitude -current  cdu  angles 

DESIRED  attitude- CPHl,  CTH ETA  jCPSX 
OUTPUTS  : SPACECRAFT  MANEUVERED  TO  DESIRED 
ATTITUDE 


MANEUVER 
SPECIFIED  BY 
3 - AXES 


MANEUVER  ^ 

SPECIFIED  / V EC  POINT  \ 

BY  ONE  / N 

/COMPUTE  DESIRED 
AXIS  t GIMBAL  ANGLES 

\to  point  vehicle^ 

\ SH.5  / 


/ IS  \ 

SAXISFLG 

V SET?/ 


inputs:  S/c  AXIS(5LAXIS  5^^) 
THAT  IS  TO  BE  POINTED  IN 
^ THE  POINTVSM^ DIRECT! ON 
output;  3 GIMBAL  ANGLES 
IN  MPAC^  I'S  COMP. 


CPHI  - OUTER 
CTHETA-  INNER 
CPSl  - MIDDLE 


SET  ^ 

NEEDLFLG  CLEAR 
NEED2FLG 


/B ALLAN 05  \ 

COMPUTE  Lm\ 
FDAI  BALL 
DISPLAY  ANGLES/ 


input:  CPHI , CTHETA, CPSl 
output;  FDAIX  , FDAIY,  FDAi; 


, TOBALLA 


V06N18 


FINISHED 

WITH  R60f 


' SOPERFgR  \ 
VSONdS  \ 
DISPLAY  BALL  T 
^ ANGLES  /- 

I PROCEED 


R1-FDAIX-XXX,XX  DEG-ROLL 
RS-FDAIY-XXX  .XX  DEG  - PITCH  1- 
R3-FDA1Z-XXX.XX  OEG-YAW  J 
immediate  (GOPERF2R  PASTES 
RETURN  THE  V50) 


TERMINATE 


(ENDMANU-l 


R6-1TEST 
. SHil  ^ 


BALL 

ANGLES 

/CHXLINUS  ' 
/ CHECK  FOR 
/ PRIORITY 
\ DISPLAYS 
\ SHIO, 


. ENDOFJOB 


CLEAR  MANEUVER 

3AXI5FLG  SPECIFIED 

BY  ONE  AXIS 


NEXT  SHEET 


.RETURN  VIA - 

\tempr6o/ 


MIT 

INSTRUMENTATION  LAB 

CMABfllDCE,  MASS. 

MAWN  » ^ 

7-^)£C  <1.7 

PUG**  “tJEJIV, 

DocMR  A 

AMAUST 

APOUO 

GUIDANCE  AND  NAVIGATION 


ATTITUDE  MANEUVER 


DOCUNENT  NO. 


: FC-34Z0 

I SHEn  a °P  Ig 


FROM  PRCCEDINe  SHEET 


(REDOMANC) 


/ IS  \ 
3AXISFL® 
SET?^ 


/ VeCPOIMT  \ 
'COMPUTE  DESIRED' 
SIMBAL  AN6I.es 
■ TO  POINT  VEHICLE 
\ SH5  / 


inputs:  s/c  axis  Cscaxis 
> that  is  to  be  pointed  in' 

\ TH E POINTVSM  5^  Dl  RECT I ON 
/output:  3 GIMBAU  ANGLES 
' IN  MPAC-r  S'S  COMP. 


CPHI  - OUTER 

-MPACj  CTHETA- INNER 
CPSI  - MIDDLE 


TOBALLC 


/BALl^NGS  \ inputs:  DESIRED  GIMBAL  ANSLES-CPHI^  CTHETA;  CPSI 
COMPUTE  LM  \ 

\FDAI  BALL  DISPLAY  REQUIRED  BALL  ANGLES -FDAIX;  FDAIY , FDAIZ 

angles  / 

SH9  / 


GTN.AUTO 
CHECK  G-l-N 
AND  AUTO 
SWITCHES 

SHll 


( AUTOMAN V 


BOTH  SWITCHES 
> O NOT  SET 


+ 0 

! 

TOBALLA 

GODSPR 
V06N18 
DISPLAY  BALL 

angles 


NO  ACTION  DISPLAY 
OF  BALL  ANGLES 
Rd-FDAIX-  XXX. XX  DEG. -ROLL 
R2-FDAIY-  XXX.XX  DEG.-  PITCH 
R3-FDAIZ-  XXX.XX  DEG. -YAW 


BALL  ANGLES 


CHKLINUS 
CHECK  FOR 
PRIORITY 
DISPLAYS 
SHIO 


(STARTMNV 


NEXT  SHEET 


«n 

IIBfltUMDIMrHM  UW 
CWMIMI,  MAS^ 


ANUO 

CUIMMCC  AW  MVICATION 


/ / I,  ATTITUDE  MANEUVER 

»JUMEe! 

iAVfi]  — DOCUMENT  NO. 

LUMINARY  -7  1-0 

5= ;7S3r7f  ID  FC-34dO 

1 I SHEET  3 Of 


FROM  PRECEDING  SHEET 


GOM^KJUR) 


^TTC^DR  = 0?: 


KAUCMANU 
NO  BUSY 


(f  MODABORT 
31^10 

TWO  PROGRAMS 
USING  DEVICE 
VAT  SAME  time 


YES  KALCMANU  IS  FREE 


ATTCADR;^  BUF2  © 
ATTCADR + 1 ^ 
EBANR  +(ATTCADR+1) 


ATT  PR>0  — V 

JSERS  PRIORITY 

SAVE  FINAL  RETURN  TO 
ENDMANUV-5'  FOR  KALCMAIN/  3 


SAVE  USERS 
PRIORITY 


/ KALCMAH3\ 

^ PERFORM  \ 
MANUVER 

calculation  i. 

, STEER\NG  / 
Vc-3430  / 


ENDMANUV 


TOBALLA 
SH2  ^ 


MIT 

INSTRUMENTATION  LAl 
CMNMIDGE,  MASS. 


ARoao 

GUIDANCE  AND  NAVIGATION 


ATTITUDE 

MANEUVER 

LUMINARY  , 1 

ID 

DOCUMENT  NO. 

FC-3420 

SHEET  4 OF 


ENTRY  POINT  FOR 
CPUS  IN  MPAC^ 


SAVE 
QPRET  IN 
VECQTEMP 


RESET 

OVERFLOV 

FLAG 


VECPNTS 


XS-< — 

ad(mis„) 


f STORAN6 


PLESD^  •*-  MPAC^  STORE  ANGLES  IN  PUSH  LIST. 


/ CDUTODCM  \ INPUTS'  INITIAL  S/c  AXES  IN  MPAC.rp 
' COMPUTE  DIRECT|0N\  ADDRESS  OP  RESULTING  MATRIX  IN  XT 

\STORTRE£UlT?,N’‘MI6y  output;  S^C  Axp  TO  STABLE  MEMBER  AXCS 
\ F03A3O  swn  7 'U"^M 


PL28Dv  = UNlT(PO(NTVSMyVAlSn')  VPs/, 

i 

MPAC^  ~UNrr(PL£8Dy  XSCAXISj  (^F  X WHERE  w = SCAXIS  s/c. 


^PICKAXIS^ 

^ = o 

UNIT-  operation/ 

YES 

< 

SLAXIS/PLeSO 
\ <0?  / 


NEXT  SHEET 


=L  y V 

MPAC^^ — PL25D^ 

. 1 

STORE  compi.emeni 
or  RESULT  IN  cor 


PL360  <2-l^PLS60r/PLEeO^  X SCAXIS^/ 
(PL36o  Si  2"'^®  radians) 


DESIRED  CDU  ANGLES 
= PRESENT  CDU  ANGLES 


RETURN’  V/A 
V ver  qtemp/ 


NEXT  SHEET 


MIT 

IHSnitMENTATtON  LAI 
CMUniOGE,  MASS. 

MIAWN  , 'p-tO-i 

p»^«  I ^9-A» 

ANALST  ^ 1 


AMUO 

GUIMNCt  m NAVICATNM 

ATTITUDE 

MANEUVER 

luminary 

ID 

DOCUMENT  NO. 

FC-5+aO 

KV  :.3 

1 sten  6 Of  la 

FRONA  PRFCE-D1N6  SHEET 

I VFa^  ARE  AAfTI  PA  RALLE  L_  . 

. 1 180“  ROTATION  l^RFOUlSED 

fROTieO  )p|CK  A VECTOR.  I N TWE  PLANE  OF 

— I ^X-AXIS;  Ys„  AXIS  PERPEWDICULAR 

M TO  VI  


MPACv=UNir^UNITQ4lS3  xO,0,o)3  ^ SCAXIS^ 


OVERFLOW 


PICK  COF^^MPAC^ 

X-AXIS  I 


FROM  PRECEDING  SHEET 

i 

MPAC^p  = CQS-‘(SCAX1S^  • ■2-SD^') 

fcoMPMATX) 


COM Pure 
ANGLE  OF 
ROTATION 


/ DELCOMP ^ 

/COMPUTE  transformation 
from  Fimac  s/c.  a>.e-s 
\ to  INITIAL  5/C  AXES 
\ FC- 34-30  'EM  I 2.  / 


Xl«- 

adCmism'i 

XZ«— 

AD(KtL^’^ 


INPUTS’.  A - angle:  in 
. MPACrP 
K COF- UNI r VECTOR 
\oUTPur:  ROTATION 
/ A130UT  A uAJi  r 
' VECTOR  BY  an 
AN&LE  A . STORE 

results  in  K^L. 

WHERE-  K^L  =m’^/ 


PICK  X 


CRL3SD  <'a~'‘^PL36D  = 

7 ^/uNIT[^MISjX(' 1.0,0^ 

T"no  ^scaxis^/ 


/ MXM3  \ COMPUTE  TRANSFCR- 

/muLTIPL'X’  TTWO  3X3\  maVioM  from  FINAL 
UAATRTCES, LEAVE  RE^UEVS)  S/C  AXES  TO  STABLE 
\ IN  PUSH  LIST~  / MEMBER  A'XES 
\fC-34SO  SHI9  / =mTs  MFl 


MPAC  *-  OlOfi)  fAPAC^*-  COF^ 


NO  G M^AL 

7 

POSSIBLE 

No 

&IMBAL  LOCK  i 


COF  ■ Tm'pac  ^tor^axis 

C y MPAC^  pQ-p^-j,Q^ 

1 IN  COF. 

r-— 7-* —7  LOAD  160° 

ROTATION 


VES^/^ /SCAAIS^/ 

GIMBAL  LOCK  \>  SIN  49. 4* 

unavoidable 


FINDGIMB 


OF  SCAXISy^ 


1 KO  1 AT  1 UiSJ 

AfVCLE 

0 ^ 

M H 

IS  \ 
MISo  > O 


LOCATE  THE  INNER 
GIMBAL  AXES  DIRLCMON 
CLOSEST  TO  the  final 


IS 

X component 
OF  MPACv 
^ (SCAXlSv)^ 

j^ES 

(u=SCAXL^ 


COFy«^  SC  AX  IS^, 


MIT 

INSTRUMENTATION  lAI 
CMAMIOlit.  MASS. 


AROUO 

GUIOANCE  ANO  NAVIGATION 


attitude:  maneuver 


SHin  7 Of  12 


FROM  PRECCDIMG  SHEET 


(SCAXlSp' 


(cHEKTAXI^ 


= X COMPONENT 
OF  SCAXISy) 


^ i 

1 

MPAC  .,-^35° 

Tyes  I 

D 

T 

MPAC  ir-  SO' 

D 


LOAD  50° 
ROTATION  angle 


LOAD  35° 
rotatiokJ  angle 


^COMPNAFS^ 


COMPUTE  new  rotation  ABOUT  SCAX 15  ^ 
‘ 


TO  BRING  N\FS  OUT  OF  GIMBAL  LOCK 


DELCOMP 


COMPUTE  ROTATION 
ABOUT  UNIT  VCCTOf^ 


STORE  RESULTS  IN  KEL  , 


\FC-3450  SH12. 


INPUTS  - ANGLE  IN  MPAC 
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input:  MPAC  - CDU  angle  2 ("iG  complement') 
output:  MPAC  — CDU  ANGLE  p (I's  COMPLEMENT) 


STORET  angle  in  PUSHLIST 


'od\  OD  — SIN  i> 

4D  j SIN(MPACp  ) A'D  —SING 
9D  / SO  — SI  N r 


MPA  •-  lOD  LOAD  ANGLE  INTO  IMPAC 

D D J 


'ED\  , -2.D  - COS 

fD ) <- ccsmpAc  \ CD -cose 

,IODC  ' ® lOD  - COS  T 


COS  e COS I 


12  D «—  SIN  e SIN 


SIN  e SIN  - cos  e SINT  COS 


I4D  *—  COS^  SIN  e 


NEXT  sheet 


INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


DRAWN  y-/ 

prcmrSi  Oi/ 

POCMB 


APOUO 

GUIDANCE  AND  NAVIGATION 


MANEUVER  calculations 
AND  STEERING 

! DOCUMENT  NO. 


USED  ON  APPR'D 


lis^ciia 


LUMINARY  ID  FC-3450 

I SHEET  21  Of  34- 


APOUO 

GUIDANCE  AND  NAVIGATION 


MANeW£R  CAtjCUCATlON/S 
AAiD  SrireRI  (viG 


DOCUMENT  NO. 


T.T^MTNARV  lU  FC- 34-30 


SHEET  ei 


TPAt^SPOS, 


TRANSPOSE 
3X3  rVNATR^'X 


(trnspspo 


) 


OD^  <— ROWl^ 

bDy  «— 

ROW?.v 

1 

IZD^^-- 

R0W3y 

input:  Xl-AO  (matrix) 
output;  transposed 

MATRIX  IN  PUSHLIST 


LOAD  matrix 

INTO  PUSHLIST 
BY  ROWS 


TRANSPOSE 
3X3  MATR  IX 
IN  PUSHLIST 

input:  matrix  in  pushlist 

PD  = 180 

output;  transposed 

MATRIX  IN 
PUSHLIST 


(trnspspd)— - 


2-D„ 


:6D_ 


4D  -5= 

I2D 

D 

D 

iod  — — 

I4D 

0 

0 

EXCHANGE 
Ml  \N1TH  M3 


Exchange 

MjNNITH  Mt 


EXCHANGE 
MgINITH  M3 


RETURN 
. VIA  Q 


(rexdcdui^ 


MPAC  + 2 CDUB 

MPACjj*— CDUX  ^ 

current  cdu  angles 


O0^*~  ROWl 

. . X ME 

M\  M 

SDi,'^  ROW2^  X M2 

V Ml 


\Z0^*—  ROW3 

X M-Z 

Ml  H 

MULTIPLY  TWO  3X3 
MATRICES 

INPUTS  : XI-  ad  (1ST matrix)! 

X2-AD(2”“MATRIX)| 

W « 

OUTPUT:  Ml  M2  IN 
PUSHLIST 


multiply  row  1 OF 

iTT  matrix  by  ZttE  MATRIX 


MULTIPLY  ROW  2 OF 

ISI  MATRIX  BY  MATRIX 


MULTIPLY  ROWS  OP 
I'Si  MATRIX  BY  2.“*  MATRIX 


RETURN  VIA  , 

\tload  +fe  / 


RETURN  VIA 

\ Q / 
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- 

MAWK  T. 

n>cm^p=-. 

|■ESIl!!Sii 

ISiMVfSMRKIPIIH 

RE 

APOLLO 

GUIDANCE  AND  NAVIGATION 


MANEUVER  CALCULATIONS 
AND  STEERING 

DOCUMENT  NO. 

FC-3430 

1 step  as  OF  a4 


LUMINARY  ID 


KALCMANU  - MANEUVER  CALCULATIONS  AND  STEERING 


SUBROUTINES 


IN  THIS  CHART 
READCDUR 
CDUTODCM 
TRAHSPOS 
ZATTEROR 
STOP  RATE 
MXM3 
TRHSPSPD 
DELCOMP 
BCMTOCDU 
TIMECHK 


READ  PRESENT  CDU  /ANGLES 
COMPUTE  DIRECTION  COSINE  MATRIX 
TRANSPOSE  MATRIX 

LOAD  COMMANDED  ANGLES  ; Z-ERO  INPUTS  TO  AUTOPILOT 
ZERO  INPUTS  TO  AUTOPILOT 
multiply  TWO  3X3  MATRICES 
TRANSPOSE  matrix  IN  PUSH  LIST. 

COMPUTE  TRANSFORMATION  MATRIX 
EXTRACT  DESIRED  CDU  ANGLES  FROM  MATRIX 
TEST  TIME  REMAINING  TILL  END  OF  MANEUVER 


ON  OTHER  CHARTS 

SIGNMPAC  SET  MPAC^  TO  + MAXIMUM  BASED  ON  SIGN  OF  MPAC 
IS  IT  AUTO  TEST  AUTO  SWITCH 

VISTOZS  CONVERT  1 's  COMPLEMENT  ANGLES  TO  Z's  COMPLEM  ENT  ANGLES. 
CDULOGIC  CONVERT  2's  COMPLEMENT  ANGLES  TO  I's  COMPLEMENT  ANGLE 


meaning 


SET  CLEARED  TESTED 


CALCMAN  2 

SET  - PERFORM  MANEUVER  STARTING  PROCEDURE 

cleared  - BYPASS  STARTING  PROCEDURE 

SH  3 

SHdO 

SHIO 

CALCMAN  3 

SET  - NO  FINAL  ROLL 

CLEARED  - FINAL  ROLL  IS  NECESSARY 

SH9 

MEAN  ING 


DESIRED  GIMBAL  ANGLES  YIELD  GIMBAL  LOCK 


USED 


SH5 


ERASABLES 


MEANIN  G 


UNITS  SCALING 


S-BAND  ANTENNA 

MAJOR  SUBROUTINES  ON  THIS  CHART 


VERB  64 

Sh. 

2 

SBANDANT 

Sh. 

3 
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S-Band  Antenna 

DRAWN  /,  , 

IRSiRi 

mm 

1 DOCUMENT  NO. 

TATMINARY  1D‘ 

1 , 

ANALST 

DXMR 

APPR'Di?4^T^Nw 

REV  i ISHEET  1 OF  8 

Extended  Verb  64:  S-Band  Antenna 


Keyed  in 

by 

astronaut 


V64E  N 
Start 

S-band  ant. 
routine  j 


Purpose:  To  compute  and  display  the  two 
steerable  S-band  antenna  gimbal 
angles  which  will  point  the  antenna 
toward  the  center  of  the  earth 


/testxacta 

Test  for  \ 
extended  verb 
active  / 
\ EC- 3 ICO  / 


Error  Exit 


ALM/END 

FC-3100 


No  other  extended 
verb  active 


SBAND:\NT 
FINDVAC 
\ job  ( 
/nriority  04 

'■  Sh.  3 


ENTiOF.TOB 
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DOCUMENT  NO. 
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SHEET  2 Of  8 


Next  Sheet 
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DRAWN  ^ ^ ■ - X , . A 
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DOCUMENT  NO. 
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ANALST 

DOCMR 

1 
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REV  1 ISHECT  3 Of  8 

From  Preceding  Sheet 
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From  Preceding  Sheet 


/Transformation 
■ from  SM  to  NB  ) 


Input:  MPACy= Vector  in  SM  coordinates 


jixi  o.vi  Output:  MPAC  = Vector  in  Nav.  base 

coordinates  / v coordinates 

FC-3320  / 


MPAC^  R,  in  NB  coordinates 


RLMj^  i:' (RLM  +2^  + RLM^^lVyj- 

RLM  +2j^< (RBM  +2^  - RLM)  ^/yz 


PLO^  < UNITIRLM^/  UR  = Pf-Oy 


MPAC,, 


RLM,^,-{RLM,^-*  HIUNITY,^,)  HIUNITY,^. 


Projection  of  R, 
onto  TjM  XZ  plane 


Clear 

overflow! 

indicator 


'COVCNV 


Pitch  angle  is  zero 
> ^ 

SB  ANDEX 
Sh.  7 


. 

i 

MPAC^  f- LINIT(MPAC^) 

Test  for  null  vector 


/Did 
MPAC^  ^ 

^^mmrnow^ 


Next  Sheet 
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ANALST 
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APPR'D-t/ 


APOLLO  GUIDANCE  AND  NAVIGATION 


S-Mand  Antenna 


,CJMrNAR^■  ID  document  NO. 

FC-3435 


rom  Preceding  Sheet 


PL6^^  f — MPAC 
V V 


UrP  = PL6^ 


RLM,  — HIUNITZ^,  (MPAC  ) ^ 

V V V X vector 


^ ^ 

1 (-  I Compute 

sin'^  [SGN(RLM^.HIUNITY^)  RLM^|  pitch  angle 


URP»HIUNIT2 
\ ^ 0?  X 


PITCHANGj^<^HIDPHALFj^-  PITCHANG^ 


NOADJUS 


RLM^  ^ UR  )i  URP 


MPAC, 


■HIUNITX,,  cos^PITCHANCt„)  - HIUNITZ  sin(PITCHANG„) 
V ^ D . .T  D 


YAWANG^f-sin-'  [sGN(MPAC  • RLM^,)  IrPM^,1_ 


From  Preceding  Sheet 


SBANDEX 


Is 

/mt  5 of 
EXTVBACT 
set?  / 


Display  has  been  answered 


D^RIOCIING 
Change  to 
priority 
05 

\ FC-3030  > 


ENDEX'r 


Immediate  return 


Blank  R3 


FC-3080 


/GOMARKini  \ R1 -PITCHAN'Ci-xxx.  XX  deg.  piteli 
V06N5  1 gimbal  angle 

Display  s-band  R2-Y AWANC-xxx.  xx  deg.  yaw  gimbal 

i gimbal  angles/ angle 

^ ' Recycle 

\y '' 

'Terminate/  \ 7 

^ proceed  \ T. N'DOI' .IdH  / 

r B50bF  ^ / 


/PRIOCIINCA 
/ Change  to 

\'  priority  04 

^ 

FC-3030  / 


ISBANDANTl 


Sh.  3 


Cleaf^-f-n — n 
of  EX'TAMIAC'T 


ENDOF.lOB 
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Subroutines  Called  on  Other  Flowcharts 
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8.0  LM  DIGITAL  AUTOPILOT 


LEM  DAP  INTERFACE  AND  SERVICE  ROUTINES 


DAPDISP 

Sh. 

2 

TRIMDONE 

Sh. 

12 

DAPIDLER 

Sh. 

13 

STARTDAP 

Sh. 

14 

ALLCOAST 

Sh. 

17 

RESTORDB 

Sh. 

18 

PFLITEDB 

Sh. 

19 

CHEKBITS 

Sh. 

20 

NEEDLER 

Sh. 

25 

DOT6RUPT 

Sh. 

28 

T6JOBCHK 

Sh. 

29 

JTLST 

Sh. 

32 

ISTOTWOS 

Sh. 

35 

OVERSUB2 

Sh. 

35 

SIIBDVDE 

Sh. 

36 

MINIMP 

Sh. 

37 

GOPIN 

Sh. 

37 

NOMINIMP 

Sh. 

37 

TOTATTER 

Sh. 

38 

DAPATTER 

Sh. 

38 

SNUFFOUT 

Sh. 

39 

OUTSNUFF 

Sh. 

39 

C13STALL 

Sh. 

40 
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PRGMR 
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ANALST  X 

BSBil 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3440 

docmr 

an-sr» 

Extended  Verb  48  (V48E) 


(dapdisp^ 

/testxact 

/ Is  another 
\ extended  verb 
\ running  ? 
\fC-3100 


''PRIOCHNC^' 
Lower  priority 
to  7 

FC-3030 


Turn  on  operator  error 
light  and  terminate  if 
there  is  a conflict, 
otherwise  set  the 
extended  verb  activity 
flag  and  continue. 


via  POSTJUMP 


^APDATA^ 


DAPDATRl  < biti  13,  11 

10,7,5,4,2  and  1 
of  DAPBOOLS 


DAPBOOLS  = Flag-word  13 


[■'lagword  10  bit  13 
No 


Yes 


Set  bit 
of  DAPDATRli 


5 


CHKDATA 
Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

LM  LAP  Interface  end 

Service  Routine.^ 
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PRGMR 
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DOCUMENT  NO. 
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From  Preceding  Sheet 


Descent 


Descent  with 
CSM  docked 


Ascent  with 
CSM  docked 


aits  14+13' 


Yes 


Now: 
bit  14  = 0 
bit  13  = 1 


Ascent;  CSM 
not  docked 
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DM  DAP  Interface  and 

Service  Routines 

DRAWN  , W . /V:/ 

PRGMR 

DU  MIN  ARY  ID 

DOCUMENT  NO. 

FC-3440 

ANALST 
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APPR'D 
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From  Preceding  Sheet 


Load  Data 


GOXDSPFR 


Immediate  ^BLANKET 
Display  FlashingX  return 


N46 
FC-3080 


Blank 
R2  and 


Proceed 


▼ 

Next  Sheet 


note : 


GOXDSPFR  = GOMARKER 


.FC-3080 


Noun  46: 

R:  DAPDATRl: octal  ABODE 

Digit  A:  Vehicle  configuration 

1 ->  Ascent^CSM  not  docked 

2 — >Descer^CSM  not  docked 
3 —^Descent  with  CSM  docked 

Digit  B:  X-translation  jet  policy 

0 —>2- jet,  RCS  sj'stem  A 

1 2-jet,  RCS  system  B 

31 

‘‘4-jet,  both  systems 


3 


Digit  C:  Manual  rate  command  scaling 
0 — > 4°/ sec  full  stick  deflection 
1— »20°/sec  full  stick  deflection 
Digit  D:  Attitude  dead  band 

0 — >0.  3 deg 

1 — >1.0  deg 

2 — > 5.  0 deg 

Digit  E:  Automatic  maneuver  rate 
0 — >0.  2 deg/ sec 

1 — > 0. 5 deg/ sec 

2 — > 2. 0 deg/ sec 
3->l  0.  0 deg/  sec 

R2,  R3  are  blank 
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From  Preceding  Sheet 


Ascent  stage 
attached  No 


Yes,  staging  has  occurred 


-of  DAPDATRl/^ 
^\set  ? 


Clear 
APSFLAG 


Flag  10  bit  13 


I 


Are 


No  no  CSM/^bits  14  + l'S\  Yes,  CSM  is  docked 

I dapdatr;^  I 

4^0 th  s&y'^ 


Clear  bit  1 3 
of  DAPBOOLS 


Set 
bit  13  of 
DAPBOOLS 


CSMDOCKD  bit 


Next  Sheet 
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From  Preceding  Sheet 


DAPBOOLS 
bits  11,  10,  7,  5,  4,  2,  1 
DAPDATRl 


Set  DAPBOOLS  flag  bits 
from  DAPDATRl 


Test  Flagword  13 
bit  13 


Yes 


1 

V 

i 

^ 

' 

MASS  4-  CSMMASS  + LMMASS 

■ 

f ^ 

in  Kg  @ 2 


+16 


Request  2 jet  X translation  Nq/ACC4-2FL' 


Set 
iNJETSFLG 


Yes,  request  4 jet  X translation 


Clea^ 
iNJETSFLG 


Flagword  1 
bit  15 


Next  Sheet 
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LM  DAP  Interface  and 

PRGMR 

ANALST 
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I.UMINARY  ID 

DOCUMENT  NO. 

FC-3440 
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APPR'D 
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L>oad 

data 


From  Preceding  Sheet 


Test  flagword  13 
bit  13 


Yes,  reduce  stick  rate  and  deadband 


No 


STIKSENS" 

-RATEDB^ 


1/10  STIKSENS 
- . 3 deg/ sec 


in  rev/  sec/  (RHC  count) 
@ 2 

- 17 

in  revs/ sec  @ 2 


Update  vehicle  masses 


via  BANKCALL 


GOXDSPFR 


Display  flashing 
V06  N47 


Immediate 
return 


BLANKET 


Blank 

R3 


FC-3080 


FC-3080 


Terminate 


.16 


Proceed 


ENDR03 


Inhibit 

inter- 

rupts 


Noun  47 

R1  : xxxxx.  lbs  LM  weight 
R2  ; xxxxx.  lbs  CSM  weight 
R3  ; Blank 

LM  weight  is  converted  to 
kg  and  stored  in  LMMASS  @ 2'“ 
CSM  weight  is  converted  to  ^ 0 
kg  and  stored  in  CSMMASS  @ 2 


Terminate  if  don't  want  to 
update  mass  or  engine  trim 


via  IBNKCALL 


/'restordbX 

Set  DB.  \ 
Call  l/ACCS/ 

Bh.  18 


Next  Sheet 


ENDEXT 


Set  crew  selected  deadband. 
Call  1/ACCS  to  update  phase 
plane  parameters  even  if  this 
display  terminates. 


Terminate  extended 
verb  48 
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Service  Routines 

DRAWN  //  , . A -/ 
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PRGMR 
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From  Preceding  Sheet 


DPDAT2 


No,  descent 
stage 


X Is  \ 
APSFLA^ 
set  / 

\ 


Yes,  ascent  stage 


'IdVIMAS^ 

<5050  Kg 


DAPDATA2 

Sh.8 


Is 

CSMDKFLC 
set 
^ 9 


Test 

Flagword  13 
bit  1 3 


FMMASS  ^ 
< 2200  Kg 


DAPDATA2 
. Sh.  8 


Yes,  CSM  docked 


No,  LM  alone 


EMALONE) 


CSM  MASS 
<4096  kg 

9 / 


If  LMMASS  is  less  than  empty 
mass,  go  ask  for  new  masses 

(lightest  descent  LM:  5050  Kg 
lightest  ascent  LM:2200  Kg) 
["Lightest"  that  the  routine  will 
accept].  Masses  loaded  in  lbs, 
but  stored  internally  in  kilograms 


DAPDATA2 
^ Sh.  8 


If  CSMMASS  too  light, 
go  back  to  ask  for 
new  load 


N.  B.  : LMMASS  is 
merely  used  as 
a buffer  here; 
CSMMASS  will 
also  be  used  by 
1/ ACCS 

-n  /r  A rA...  ■ i _ o "t"!  6 


Next  Sheet 
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MASS  in  kg 
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LM  DAP  Interface  and 
Service  Routines 


DOCUMENT  NO. 
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From  Preceding  Sheet 


Jt 

MASS  +1  — 0 


Mass  monitor  updates  mass  in  d.p. , 
but  this  initial  load  is  s.p.  , so  zero 
low  order  half. 


I 

Inhibit 

inter- 

rupts 


via  IBNKCALL 


Set  crew  selected  deadband  and  call 
1/ACCS  to  update  phase  plane  parameters 
for  new  masses  and  deadband 


Gimbal  test/  trim  (if  appropriate 
and  requested) 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

DRAWN. 

LM  DAP  Interface  and 

PRGMR 

ANALST  a 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3440 
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eding  Sheet 


Yes,  ascent  stage 


No  gimbals  if  no  descent 
stage,  so  terminate 


Noun  48 

R1  ; XXX.  XX  deg.  pitch  trim 
angle 

R2  : XXX.  XX  deg.  roll  trim 

angle 

R3 : Blank 


Terminate  so  TRIMGIMB  can  execute, 
but  the  extended  verb  is  still  active 


ENDOFJOB 
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Service  Routines 
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PRGMR 
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DU  MIN  ARY  ID 
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R1  : XXX.  XX  deg 

gimbal  pitch  trim 
R2  : XXX.  XX  deg 

gimbal  roll  trim 
R3 : blank 


TRIMGIMB  comes  here  when 
test/trim  done. 


(^RIMDQI^ 


(This  may  be  as  much  as  2 min. 
after  the  V06N48  display). 


via  BANKCALL 


GOMARK3R 
Display  flashing)" 
V50  N48 
FC-3080 


Immediate/ 
return 


'^BLANKET 
Blank  R3 


FC-3080 


Noun  as  before 
VerbSO 
(=VERB06) 
for  "Please 
terminate" 


Terminate 

Proceed 

Enter 


Any  response  will  serve  to 
terminate  the  extended  verb. 
Display's  only  purpose  is  to 
indicate  that  trim  is  done. 


T5RUPT  lead-in  and  DAP  idling  program 


Come  to  here  on  T5 
interrupt  every  100  msec. 


2 possibilities : 

DAPIDLER  (Sh.  13i 
PAXIS  (FC-3470) 
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Service  Routines 

DRAWN, 

PRGMR 

r Tn\/ITATAt?V  TO 

DOCUMENT  NO. 

FC-3440 

ANALST  yiu-v,...  T. 

DOCMR-l?.X.r„ITlAX±^ 

REV  2 ISHEET12  Of  50 

(^APIDLE^ 


r 

BANKRUPT) 

< 

- L 

QRUPT 

1 

-O 

J 

' 

Come  here  when  DAP  is  idling  because  IMU  is 
not  good,  or  l/ACCS  has  not  run  since  last 
Fresh  Start  or  Restart  or  not  in  PGNCS,  or 

in  off  mode,  or  after  Fresh  Start  / Restart,  and 
once  every  2 sec  when  in  P66  after  proceed  has 
been  keyed  into  DSKY  and  engine  has  been  disarmed. 

Save  caller's  BBANK  and  Q registers 


No,  l/ACCS  has  not  run  since  Fresh  Start/ Restart 

(both  of  which  set  RCSFLAGS  bit  13  to  0) 


Set 

RCSFLAGSj 
bit  1 3 


1/ACCSET 
sIOVAC  job. 
/priority  27' 
FC-3490 


Set  flag  to  a positive  number  to 
indicate  l/ACCS  has  been  started 
(set  to  27000  ) 

O 


Schedule  l/ACCS 


^HECKUP^ 


^CHEKBITS^ 

Should  LM 
DA  P go  on  7 - 


Sh.  20 


Checks  IMU  and  DAP 

Status  (DAP  mode,  PGNCS).  Returns  only  if 
DAP  should  stay  on;  otherwise  executes  appropriate 
coding  to  make  sure  jets  are  off  and  terminates. 
CHEKBITS  updates  the  error  displays  whenever  the 
IMU  is  usable  and  mode  is  not  "off". 


Test  flagword  13 
bit  3 


No,  l/ACCS  has  not  finished  running  for  first  time 
since  Fresh  Start/  Restart 


Next  Sheet 


Yes, 

Start  the  DAP 


Wait  for  l/ACCS  to  finish 
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O.  K.  to  start  DAP  if  this  point  is  reached 


From  Preceding  Sheet 


^TARTDAP^ 


I 


via  IBNKCALL 


ZATTEROR 

Zero  attitude 

error  and 
desired  rate 
FC-3430 


Set  to  zero: 

TJP,  TJU,  TJV 

OMEGAP,  OMEGAQ,  OMEGAR 
TRAPEDP,  TRAPEDQ,  TRAPEDR 


AOSQ^ 


AOSR 


D 


ALPHAQ  , ALPHAR 
NEGUQ,  NEGUR 
AOSQTERM.AOSRTERM 
QACCDOT,  RACCDOT 


ALLOWGTS'<-+-0 
COTROEER<^  +0 
INGTS  < +•  0 


I 


Set  to  zero : 

PJETCTR,  UJETCTR  VJETCTR 
QGIMTIMR,  RGIMTIMR 
OLDPMIN,  OLDQRMIN 


I 


Next  Sheet 


For  the  moment,  establish  present 
attitude  as  attitude  reference,  and  zero 
commanded  rates. 


Erasable  initialization  for  DAP 

Jet  firing,  times  for  rate  estimator  rates, 
in  body  axes  (pilot  co-ords). 

Noise  Traps 

Offset  acceleration  estimates 
The  same  (s.  p.  ) for  Downlink 
Gimbal  drive  switch  words 

Q,  R - axis  rate  derivation  terms 
Jerk  terms  for  rate  estimation 


Don't  allow  gimbal  trim  system  control 
but  try  GTS  control  (it  won't  be  allowed  of 
course).  Flag  indicates  GTS  is  not 
controlling 


Initialize  docked  jet  inhibition  counters 
Gimbal  drive  times  (this  will  stop  gimbal 
drives)  Minimum  impulse  command 
registers 
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■3,1 

From  Preceding  Sheet 


Clear  bits 
11,10,  5 and  1 
of  RCSFLAGS 


Not  in  direct  rate  manual  mode; 
engine  gimbal  drive  bits  not  being  set 


OLDXFORP  i 

I CDUX 

OLDYFORP  " 

• CDUY 

OLDZFORQ  ■> 

1 CDUZ 

in  revs 
@2"^ 


Set  bit  i: 

I of  RCSFLAGS 


TIMES 

i POSMAX 

T6NEXT 

i — POSMAX 

T6FURTHA 

1 — POSMAX 

T6NEXT  +1 

i — +0 

T6FURTHA 

+ 14-+0 

NXT6ADR 

^ — +0 

Initialize  "old  CDU"  registers,  so 
rate  estimator  (which  runs  for  first 
time  in  100  m sec)  will  have  values 
to  take  differences  with  to  estimate 
rates 


Don't  skip  P-axis  RCS  DAP  on 
first  pass 


Don't  skip  U-axis  RCS  DAP  on  first  pass 
Don't  skip  V-axis  RCS  DAP  on  first  pass 
An  axis  is  skipped  if  and  only  if: 

1.  Jets  were  fired  last  time 

and 

2.  The  firing  time  was  <150  msec. 


TIME  6 in  csec  @ 2 

No  events  awaiting  execution  by 
the  T6  program  (T6JOB) 


POSMAX  = 37777 


8 


Dummy  event  tags  in  the  jet  list  since  no 
events  are  waiting 


Next  Sheet 
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From  Preceding  Sheet 


NEXTP 

^ 

+ 0 

NEXTU 

^ 

+ 0 

NEXTV 

4 

+ 0 

t 

"^°10 
+2 
+2 
+2 


DAPZRUPT  i- 
NPTRAPS  f- 
NQTRAPS  1- 
NRTRAPS  f 


No  translations  waiting 
to  be  executed 


This  will  show  JASK  not  running, 
since  Z is  never  < 0 


Initialize  trap  counters  in  all  3 axes 
for  the  noise  traps. 


@ 2 


+14 


T5ADR  -t 2CADR  (PAXIS) 


~r 


T5RUPT  goes  to  P-axis  autopilot  next 
time  (i.  e.  DAP  is  now  "TURNED  ON") 


(^ETTIME  5^ 

i 

1 

TIMES  4— 

-MSlOO 

1 

1 

1 

! 

X^RESUME  y/ 

in  decisec  @ 2 


+ 14 


End  of  T5RUPT 
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DOCUMENT  NO. 
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^LLCOAS^ 


Save 

Q in 

RUPTREG2 
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0. 3 deg. 
deadband 
selected 
by  crew 


From  Preceding  Sheet 


(^ALLACC^ 


1/ACCJOB 

NOV AC  job  / Schedule  l/ACCS  to  position  switch 
■ priority  27  ^ curves  for  new  deadbands  and  compute 
control  authorities 


FC-3490 


Return  via 
.RUPTREGI 


RUPTREGl  contains  Q 


Routine  to  set  attitude  deadband  for 
RCS  to  * 1.0  deg  for  powered  flight 


'^ZATTERO^ 
Zero 
attitude 
errors 

FC-3430 


Set  reference  attitude  to  present  actual 
attitude  so  that  if  5 DB  were  in  effect, 
collapsing  the  DB  to  1 will  not  cause  jets 
to  fir3.  Null  commanded  rates 


1 

_ ..... 

DB  ^ 1 . 0 deg  [ 

CALLACCS 

1 I 

^Sh.  19 

in  revs  (S^  2 


Continue  above  to  schedule  l/ACCS 
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From  Preceding  Sheet 


. _ . 3 

r 

AK-<— CPHI  - CDUX  + Mil  (CTHETA-CDUY) 

Yaw  error  in 
-1 


revs  @ 2 


/OVERSUB  ^ 


Pin  needles 
in  case  of 
overflow 


A = AK  in  revs  @ 2 


-1 


Output : 

A unchanged  or  limited  to 


Sh.  35 


POSMAX  (37777  ) or 
NEGMAX  (40000  ^ ) if  A has 


overflow 


AK  +1<— M21  (CTHETA-  CDUY)4-M22  (CPSl  - CDUZ) 


Pitch  error  in 


revs  (8  2”^ 


/OVERSUB2' 


Input; 


Pin  needles 
in  case  of 
overflow 


A = A K 4 1 in  rev  s 2 


-1 


Sh.  35 


! 

AK  +2<-M31  (CTHETA  - CDUY)  + M32  (CPSl  - C’DUZ) 

' 

holl  error  in 
revs  (<i)  2 ^ 


/OVERSUB2\ 


Input: 


Pin  needles' 
in  case  of 
overflow 


A = AK  1-2  in  revs  (A>  2 


-1 


Sh.  3 5 


(^ETNMOR^ 


Next  Sheet 


From  Preceding  Sheet 


Return  to  caller, 
DAP  may  go  on 


(^OREIDL^ 


via  IBNKCALL 


/QERRCALCN 
Calculate  Q, 
axis  attitude 
errors 
FC-3470 


via  IBNKCALL 


:alcperr\ 

Calculate  P- 
axis  attitude/ 
errors 
FC-3470 


Calculate  attitude  errors  for  display  on  next  pass 

Input;  CDU  angles,  CDU  desired  angles 
(Y  and  Z)  in  revs  @ 2"^ 

Output:  QERROR  = Q-axis  attitude  error 
RERROR  = R-axis  attitude  error 


Input;  CDU  angles,  CDU  desired  angles 
(X  and  Y)  in  revs  @2"^ 

Output:  PERROR  = P-axis  attitucie  error 


Next  Sheet 
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From  Preceding  Sheet 


SHUTDOWN 


Shut  off  the  DA  P 


T5ADR^2CADR  (DAPIDLER) 


NEXTP 

NEXTQ 

NEXTR 


I Channel  5/ 


Channel 


Make  sure  no  translation 
jets  are  waiting  to  go  on 


Turn  off  all  jets 


\Channel  li 
\bits  12-^ 


SETTIME  5 

\ Sh.l6^ 


Turn  off  gimbal  drive 


Try  again  in  100  msec. 
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DOCUMENT  NO. 

LUMINARY  ID  FC-3440 


NEEDLER 


Enable  IMU  DAC's 
to  drive  error 
needles 


Set  for  Passe  s 
3-N 


DRAWN . ^ 
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LM  DAP  Interface  and 
Service  Routines 


I.UMINARY  ID 


DOCUMENT  NO. 

FC-3440 
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From  Proceeding  Sheet 


Loop  Pass  1 : Z-axis  needle 
drive 


L-* ^ [AK  +2  ] 

If  |l|  2 384,  L 4-384  • SIGN  (L) 
CDUZCMD4-CDUZCMD+  (L-EDRIVEZ) 
EDRIVEZ  4 — L 


If  1l|>  384,  L4— 384-  SIGN  (L) 

CDUY  CMD  4-  CDUY  CMD+  (L-  EDRIVEY ) 
EDRIVEY  4 L 


IF  |l|2  384,  L4-  384-  SIGN  (L) 
CDUXCMD  «—  CDUXCMD+  (L-  EDRIVEX } 
EDRIVEX  4—  L 


Rescale  to  10,000 

Limit  to  ± 384  (maximum  for 
counters)  = + 42  3/l6  deg. 

Add  new  A command  to  output 
registers 

Save  to  form  A command  on 
next  pass  (in  revs  @ 2”^  x 10) 

Loop  Pass  2 : Y-axis  needle 
drive 


Loop  Pass  3 : X-axis  needle 
drive 


Release  needle  drive  bits  from  CDUXCMD, 
CDU'^XMD,  and  CDUZCMD  ( = Registers  50  51 

and  52^)  88 

O 
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Continuation  of  T6  interrupt  lead  in 


Store  BBANK  of  interrupted  program 
Store  contents  of  Q 


This  routine  does  all  the  work 


End  T1ME6  interrupt  processor 
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Check  to  see  if  a T6RUPT  has  occurred 


Next  Sheet 
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P rom  Preceding  Sheet 


Is  's 

TIME6 


< 777„? 

O 


Yes,  event  to  follow,  so  start  clock  again 


(ENABLET6) 


C13QSAV 

< — Q 
RUPTREGl 


Save  Q and  L 


/ Cl  3 STALL  \ 

Protect  Channel  13 
while  radar  read 
is  in  critical  period/ 
X Sh.  40  7 


Q ♦ 

C13QSAV 

RUPTREGl 


Set  bit  1 5 
of 

y Channel  13  , 


Start  Clock 


Is 

T6NEXT 
> 777„ 


TIME6f—  POSMAX 


T6NEXT^ 


• POSMAX 


POSMAX 

37777„ 


Next  Sheet 
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From  Preceding  Sheet 


GOCH56 


L = ID  tag  of  event 
V to  be  executed 


-NEXTP 


WRITEP 


Write  bits 
1-8  of  A 
L into  / 
\channel  6/ 


A< 

NEXTU 

> 

f 

(^WRITEU^ 

5 

r 

\ Write  bits  / 

\ 6.  5.  2.  1 / 

\ of  A into  / 
\channel  5 / 

f 

A< 

-NEXTV 

3 

t 

(^WRITEv'^ 

1 . 

Write  bits 
8.  7.  4.  3 
y of  A into 
\Channel 5 i 


NEXTP  is  Channel  6 jet 
code  for  Y and  Z axis 
translation. 

NEXTU  is  channel  5 jet 
code  for  X-axis 
translation  using  U- 
axis  jets. 

NEXTV  is  channel  5 jet 
code  for  X-axis 
translation  using  V- 
axis  jets. 


Turn  on/off  appropriate 
jets. 


Return 
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DOCUMENT  NO. 


J ic/rc 
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FC-3440 


ISHEET31  OF 


Maintain  Jet  list:  Enter  with  event  to  be 
added  in  list  position  3.  Compare  time 
of  execution  of  new  event  with  the  events 
already  scheduled,  and  place  new  event 
in  proper  place  in  list  to  keep  list  order 
equal  to  order  of  execution. 


No,  new  event  doesn't 
go  in  top  of  list 


Is  new  event  to  occur  before  the  event 
currently  at  the  top  of  the  list  ? 


Yes,  put  new  event  at  top  of  list 


A< TIMES  - T6FURTHA 

L-< NXT6ADR 

TIMES  — TSFURTHA 

NXTSADR*^  tT6FURTHA  +1] 
TSFURTHA  •* — TSNEXT 

TSFURTHA  +1-* [TSNEXT  +1] 

TSNEXT  — A 
TSNEXT  +1  ■*- 


1 


Q < 

C13QSAV 

C13QSAV 


C13STALL 


Protect  Channel  13 
while  radar  read 
is  in  critical  period 
Sh.  40  / 


Set  bit  15 
of 

1 Channel  13/ 


Next  Sheet 


Return  via 
C13QSAV 


,+10 


A time  in  csec  @ 2 ' new  event  to  follow. 

Save  old  top-of-list  ID  tag  to  go  into  position  2. 
Set  TS  timer  to  schedule  new  event  (in  csec 

@ 


ID  Tag  for  new  event. 
A time  (in  csec  (® 

ID  Tag  (@  2'^^^ 

Atime  (in  csec  @ 

ID  Tag  (@  2+14) 


2+1°) 


-dO) 


(@  2+14). 

Move  position  2 
event  to  position  3. 

Place  old  top-of- 
list  event  into  Posi 
Position  2. 


Start  TIMES  clock,  in  case  this  is  the 
first  event  to  be  scheduled  since  the 
TIMES. clock  shut  down.  If  the  clock  is 
already  running,  this  is  redundant  but 
harmless. 
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From  Pijeceding  Sheet 


No,  new  event  doesnH/  Is 
go  into  position  2/T6FURTHJ 
.<TIME6  + 
^T6NEX: 


Is  new  event  to  occur 
currently  2*^^ 


before  the  event 
on  the  list? 


nd 


Yes,  new  event  into  2 position  on  list 


A i — TIMES  + T6NEXT  - T6FURTHA 
L-* — [T6NEXT  +1] 

T6NEXT  < T6FURTHA  - TIMES 

T6NEXT  +!◄ — [T6FURTHA  +1] 
TSFURTHA-^ — A 
TSFURTHA  +1  •*—  L 


A time,  from  new  event  to  event  to 
follow  ftn  cgec 

Save  old  2^  positiOnevent  ID  to  go  in 
position  3 


+10 


A time  (in  csec  % 2 
new  event 

ID  tag  of  new  event  ( 
A time  (in  csec'?  2"^^ 
ID  tag  ( ? 


) 1st  event  to 

\Place  new  event 
J 2 )/into  position  2 
^)'l  Place  old  position 
V 2 event  into 
J position  3 


Return  via 

Q 


TIMES  clock  is  already  running,  so  don't 
need  to  start  it  here 


V 

Next  Sheet 
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New  event  must  go  into  postion  3.  The  ID  tag  is 
already  there  in  T6FURTHA  +1.  T6FURTHA,  however, 
contains  the  time  from  now  to  the  new  event.  What  is 
needed  is  the  time  from  event  2 to  the  new  event 


! 

' 

T6FURTHA4— T6FURTHA  - TIME6  - T6NEXT 

+ NEGO 

1 

' 

A time  (in  csec  @2^  ),  event  2 to 

new  event  (-0  is  added  to  insure 
that  result  will  never  be  +0) 


Return 
via  Q 


The  jet  list  is  composed  of  6 words  of  memory-  3 times, 
and  3 event  ID's  as  follows; 


Positionl 


Positions 


Position3 


/TIME6 

\NXT6ADR 

/"TfiNEXT 
\t6NEXT  +1 


T6FURTHA 

6FURTHA+1 


A time,  "now"  to  first  event  (This  is  the  TIMES 
ID  of  the  first  event  register) 

A time,  first  event  to  second  event 
ID  of  the  second  event 

A time,  secone  event  to  third  event 
ID  of  the  third  event 


The  events  and  their  ID'S  are  as  follows: 

ID=0:  Stop  P rotation  jets,  turn  on  Y,  Z translation  jets,  if  any 

ID=4:  Stop  U rotation  jets,  turn  on  U-axis  X trans.  jets,  if  any 

ID=3;  Stop  V rotation  jets,  turn  on  V-axis  X trans.  jets,  if  any 

When  the  T6  clock  counts  to  zero,  T6JOB  is  entered. 

It  executes  event  no.  1,  and  pushes  the  rest  one  position  up 
the  list.  A time,  eventl  to  event  2,  becomes  the  new  setting 
of  the  TIME6  clock.  POSMAX  ( the  largest  positive  number 
available)  is  entered  for  the  A time  at  the  bottom  of  the  list. 
When  all  the  scheduled  events  have  been  duly  executed,  T6JOB 
recognizes  the  execessively  large  A time  it  is  about  to  put  into 
TIME6,  and  leaves  the  timer  turned  off. 
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T^EET36  Or 


^OMINIM^ 


via  DOWNFLAG  (FC-3050) 


Clear^ 
PULSEFLG I 


Clear  flag  13  bit  15 
(not  minimum  impulse 
command  mode) 


Inhibit 

inter- 

rupts 


Via  IBNKCALL 


/ZATTERORN 
'Zero  the  de- 
^sired  rates  and 

Vhe,  attitude 
errors 


Set  CDUXD,  CDUYD, 

CDUZD  equal  to  CDUX, 

CDUY,  CDUZ  and  set  OMEGAD 
prevent  extra  jet  firings 


Return  via  PINBRNCH 
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TOTATTE 


I X Extended  Verb  62 
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Set 

NEEDLFLC 


Set  flag  0 bit  4 


C N 

^tatter 

via  DOWNFLAG  (FC-3050) 
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Return  via  PINBRNCH 


)APATTE 


PpA  Extended  Verb  61 

y Display  DAP  attitude 

error  request 
via  DOWNFLAG  (FC-3050) 


Clear*" ' 

NEEDLFLG  Clear  flag  0 bit  4 


TOTATTER  +2 
Sh.  38 


SNUFFOU 


Fxt.ended  Verb 
Disable  U.  V jets  during 
DPS  burns 


via  UPFLAG  (FC-3050) 


Set  flag  5 bit  13 


Return  via  PINBRNCH 


(6utsnuf^ 


Extended  Verb  75 
Enable  U,  V jets  during 
DPS  burns 


via  DOWNFLAG  (FC-3050) 


Clear 
SNUFFER 


Clear  flag  5 bit  13 


Return  via  PINBRNCH 
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Entry  to  LM  DAP 


PAXIS 


PAXIS 

T5RUPT  y 
task  in  \ 
100  msec. 


Reschedule  self  in  100  msec,  to  maintain  DAP 
iteration  rate  of  10  per  second 


BANKRUPT^ 
QRUPT< 


Save  caller's  BBANK  and  Q registers 


^ IS  \ 
DAPZRUPT 


DAPZRUPT  is>-0  only  if  jask  is 
still  running,  which  means  the  DAP 
has  interrupted  itself- - disaster ! 
(LGC  itself  is  probably  in  trouble) 


BAILOUT 

FC-3140 


Alarm  code  32000:  "DAP 
still  in  progress  at  next 
TIMES  rupt"  and  then  do 
restart. 


^CHEKBITSX 
See  if  DAP  ' 
may  stay  on; 
do  display  y 

V FC-3440/ 


If  DAP  not  to  stay  on  (IMU  no  good,  mode 
switch  off,  or  not  in  PGNCS),  this  routine 
will  terminate  DAP.  It  returns  to  caller 
only  if  DAP  may  stay  on. 


Yes,  DAP  may  stay  on 
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DAPTREG4' 
DAPTREG5  • 
DAPTREG6  • 


■CDUX 

•CDUY 

-CDUZ 


Store  CDU's  in  revs  i@  2' 


CDUXD< CDUXD  - DELCDUX 

CDUYD< CDUYD  - DELCDUY 

CDUZD< CDUYD  - DELCDUZ 


Update  CDU- desired  values  by  adding 
in  A commands  from  the  steering  inter- 
face (if  no  automatic  steering  in  prog- 
ress, A commands  are  set  to  zero)  in 
revs  @ 2-1. 

The  results  are  converted  to  2's  com- 
plement angles  by  the  routine  ISTOTWOS 
(FC-3440) 


TCP< 

TCQR- 


-TCP  - 1 
-TCQR  - 1 


Diminish  manual  control  direct  rate  timers 
(in  decisec.  i@ 


PAXFILT 


X Is  \ 

CALLGMBL 
' — set? 


Yes,  call  routine 
to  drive  gimbals 


^ACDT+C12\ 

Turn  gimbal 
drives  on/ off 

V FC-3480  / 


DAPARUPTj^«« — 

DAPBQRUPT-*— 
DAPBQRUPT  +1- 
DAPZRUPT,^c 


-ARUPTj 

■ BRUPT 
-QRUPT 
-ZRUPT, 


Set  up  SUPER  JOB 

Save  RUPT  registers  so  the  original 
interrupted  job  can  eventually  be  re- 
instated. 
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ERUPT  *■ 

IzRUPTjj. 


r 


SUPERJOB 


Now  set  up  RUPT  registers  so  that 
control  will  go  to  SUPERJOB  when 
RESUME  is  executed. 

C(  SUPERJOB)  = "TCP  RATELOOP". 
the  first  instruction  to  be  executed 
following  the  RESUME. 


GENADR(SUPERJOB  +1) 


Location  of  instruction  to  follow 


fkoQBRSM  +1; 


_ l_  _J 

I 


Leaving  interrupt  mode 


Causes  ERUPT  to  go  to  the  hardware 
B register  for  execution  and  ZRUPT 
to  go  to  Z.  Result  is  as  if  interrupt 
had  "resumed"  at  location  SUPERJOB 


(g 


i. 


SUPERJO^ 
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RATE  LOOP, 


State  Estimator 

The  following  is  done  3 times.  The  notation 
TJVdJ,  P)  is  to  be  read  TJV  the  1st  time,  TJU 
the  2nd,  and  TJP  the  3rd 


>100 


>0 

<100  msec 


TJV(U,  P)  is  jet  firing  time  for  each  axis  which 
was  computed  during  the  previous  DAP  cycle 


msec 


B5SQ 

■ 

ll^Q-  T J V ( U,  P ) 


A 

TJV(U,  P)  < 


If  jet  time  <100  ms,  as- 
sume the  jets  fired  for 
the  time  specified. 

If  jet  time  >100  ms,  as- 
sume jets  are  still  fir- 
ing; subtract  100  ms 
from  total,  and  use  100 
ms  as  effective  firing 
time  over  last  DAP  per- 
iod. 

TJV(U,  P)  in  csec@2^^^ 


A< 100  ms  • sign  [TJV(U,  P)] 

TJV(U,P)^-TJV(U,P)i-  sign[TJV(U,  P)]' 100  ms 


-9K- 


( llj^Q  for  scaling) 
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ROTORQUEj 


^^JR=  + Tjv) 

I_Tjv1 

JETRATER*-mCCH(DAPTEMP2  + DAPTEIV1P3) 
JETRATBQ>fr-lJACCQ(n^^TEMP2  - DAPTEMP3) 


IJACCR(Q)  is  the  effective 
acceleration  about  the  R(Q) 
axis  caused  by  a single  jet 
on  the  U or  V axis. 

Note  that  a +U  jet — >■  +Q  and  +R 
but  a +V  jet — v-Q  and  +R 
JETRATER(Q)=predicted  A rate 
about  the  R(Q)  axis  caused  by 
jet  firings  in  rev/sec  @2-3 


BACKP 


(See  summary,  Sh.  9) 


AO  = /^  T 
JP  JP  JP 


JETRATE- 


-IJACC-  DAPTEMPl 


Predicted  A rate  in  the  P axis 
in  rev/ sec  @2-3 


DAPTEMPl <—{DAPTREG4  - OLDXFORP  : 
OLDXFORP  -.i DAPTREG4 


DAPTREG4  contains  CDUX 

ACDUX=CDUX  -CDUX  , 
n n- 1 

in  rev  @ 2”  ^ 

Save  CDUX  (outer  gimbal  angle) 
for  next  time 


DAPTREG4 


TRAPEDP< TRAPEDP  - l/2-JETRATE 

TRAPEDQ<-TRAraDQ-  l/2(JETRArEQ  + ADSQIERM) 
TRAPEDR^-TRAEFDR  - l/2(JETElArER  + ADSKIERM) 


Add  in  average  rate  change  due 
to  jet  firing  and  (for  Q and  R axes) 
due  to  AOS  (in  rev/ sec  @ 2 ”3 )_ 
Average  rate  change  = l/2  Arate 

(in  rev/sec  @2”3) 
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DOCUMENT  NO. 

FC-3470 


ISHECT  7 0fll4 


From  Preceding  Sheet 


IAPTEIVIP2  <- (EAPT 

REGS  - OLDYPORP) 

■DAPTREG5  contains  CDUY 

ACDUY  = CDUY  - CDUY  , 

^ n n-1 

in  revs  @2” 

Save  CDUY  (inner  gimbal  angle) 
for  next  time 


sinV'(^„'  e„.l) 


JOMEGAUgf-DAPTEMPl  + Mil  • mPTEIVIP2 1 


^,Gj1'-=CT>\5'K.  CDUY.  CDUZ' outer, 
inner,  middle  measured  A attitude 
in  P axis  is  element  of  GP 

matrix  which  is  maintained  by  a 
T4RUPT  routine.  ) 


^SUBDIVDE  +3\ 

Divide  by 
1/40 

FC-3440 


Input:  OMEGAU=A  attitude  in  revs®  2' 
(DAPTREG4  = 1/40) 

Output;  A=40-OMEGAU 

DAPTEMP5  = OMEGAU 


i 

! 

TRAP  =TRAP  +[co  (n)-co  (n-1)] 

P P P P 

~AT'  ~ fRAraDP  + (A^  OMEGAP) 

i 

' 

So  A = Measured  average  P-axis  _o 
rate  since  last  DAP  pass  in  rev/sec@  2^ . 
Add  difference  between  "A"  and  P-axis 
rate  estimated  on  last  pass  (OMEGAP) 
to  TRAPEDP 


OVERSUB 

Correct 

if 

overflow 

FC-3440 


Input:  A in  rev/ sec®  2 


-3 


Output:  A = TRAPEDP  in  rev/ sec®  2 
corrected  for  overflow 


-3 


TRAPEDP- 


-A 


Store  TRAPEDP  in  rev/sec  @2'^ 

TRAPEDP  now  contains  accumulated  rate 
error--the  sum  of  measured  A rate  vs. 
predicted  A rate  for  each  DAP  pass  since 
the  last  time  this  error  was  incorporated 
into  the  measurement. 


EKERROR<— EKERRCR  + DAPTEMPS  - 1/4D-PLAST 


Manual  mode  X attitude 
error  in  revs®  2”1 
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From  Preceding  Sheet 


DAPTEMPS-e— DAPTREG6  - OLDZFORQ 
OLDZFORQ  * DAPTREG6 


DAPTREG6  contains  CDUZ 


DAPTREG6  ACDUZ  = (CDUZ^-CDUZ^  j^)  angle 
in  revs  @ 2“  ^ 


^n- ^ ” ^n-1^  Measured  A attitude,  Q axis 
^]VE^[^^M^(D^TEMP2>^-M22 -(DAPTEMPS)  m revs®  2-1 


'^SUBDIVDE  \ 

Divide  by  A T 
and  scale 

. FC-3440  / 


' 

L 

TRAPq  = TRAPq  + [(1/Q(n)  - ^Q(n-l)] 
A = TRAPEDQ  + (A  - OMEGAQ) 

s 

Input:  OMEGAU  in  revs @2' 


Output:  A - 40*  OMEGAU  = Measured  average 
Q axis  rate  since  last  DAP  pass 
in  rev/sec @ 2-3 
DAPTEMP5  = OMEGAU 


— (See  comments  for  TRAPEDP) 


OVERSUB 

Correct 

for 

overflow 
. FC-3440 


I TRAPEDQ< a|  store  TRAPEDQ  in  rev/ sec  @ 2 ^ 

± 

DmiROR  «-DYERROR  + DAPTEMPS  - 1/40  • QIAST  Manual  mode  Y attitude  error 
inrevs@2--‘- 

i 

-cosi‘'sin^(0^-  + cos^( 

CIVIEGALL«— M31- nAPrEMP2  + M32  • DAPTEIVIP3  Measured  A attitude.  R axis, 

. p- in  revs @2-1 

i 
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DOCUMENT  Na 
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Iappr’d 
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In  summary; 


TRAPp 

TRAPp 

TRAP„ 

TRAPp 

TRAP„ 

TRAPp 

GP 

AT 


A(p 

1 

p 

A© 

- 

AY 

‘^R 





1 

0 

JP 

+ 1 

J Q 

2 

^ gq 

^JR 

GR 

- ■ --- 



* 

Where  GP  = gimbal  rates  to  pilot  rates 
transformation  matrix 

CO  = olci  rate  estimate 


Aco , 


M G 


= A rate  due  to  jets 
= A rate  due  to  thrust  offset 


So  that  trap  is  the  accumulated  error  be- 
tween observed  and  predicted  attitude  rates. 


AT  = . 1 sec  = 1 DAP  pass 
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Get  pad  loaded  state 
estimator  gains 


All  pad  loads  are  set  to 
a nominal  valve  in  Fresh 
Start  as  indicated 


Gain  for  omega:  nominal 
value  - dec  10  if  docked, 

0 otherwise 

Gain  for  alpha:  nominally 
dec  60 

Limit  for  trap  overflow - 
nominally  -1.4 
(in  rev/ sec  @ 2"3) 


@2 


+14 
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Yes,  trap  overflow 

Update  rate  estimate 


No, 

don't 

incorporate 


-OMEGAP  + 


TRAPEDP 

NPTRAPS 


OVERSUB 
Correct 
for 
overflow 
FC-3440, 


NPTRAPS  = number  of 
DAP  periods  over  which 
error  has  accumulated 
since  last  incorporation 

so  that  the  gain  ( j^p^RAPS  ^ 

used  to  incorporate  the  ac- 
cumulated rate  error  (TRAPEDP) 
into  the  rate  estimate  is  time 
varying 


OMEGAP  <: — A 


NPTRAPS  <— DAPTREG4 


TRAPEDP  <— 0 


New  = old  + 

Accumulated  average  rate 

in  rev/sec 

No.  DAP  passes  since 
last  trap  overflow  @ 2 

+ 14 

Initialize  counter  (@  2 ) 

and  sum  (in  rev/sec g 

- 3 

2 ) to  start  accumulating  rate 

error  all  over  again 


, SMALPDIF) 


^ 

NPTRAPS  < — NPTRAPS  + 1 



\ 

Increment  counter®  2 


+ 14 


^P-RATE^ 






GJp(n)-«-^^(n- 1)  + ^^'jp 



Add  in  jet  acceleration  to  give  _g 
new  rate  estimate  in  rev/ sec  @2 
[overflow  correction  is  done  by 
OVERSUB  (FC-3440)] 
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ITRAPEDQI-  1 

S+  DAPTREG6 

\ >0  ^ 


Yes,  trap  overflow 


iDAPTEMPl 

NQTRAPS 
■OMEGAQ  + DAPTEMPl 


'OVERSUB 

Correct 

for 

overflow 
V FC-3440 


Save  rate  correction  for 
offset  estimator. 
Incorporate  average  rate 
. error  into  rate  estimate 
with  time  varying  gain. 
Overflow  correction  is 
done  by  OVERSUB 
(FC-3440) 


OMEGAQ-^ 

AOSQ*AOSQ  + 


iQTRAPS  « 

:rapedq  ■ 


5 -DAPTEMPl 
NQIRAPS  + EAPTREGS 


■DAPTREG4 
0 


Incorporate  average  rate 
error  into  angular 
offset  estimate  with 
a time- dependent  ^ 

. gain  (in  rev/sec'^  @ 2 
\lnitiaiize  error  accu- 
J mulation  again 


Q-RATE 


NQTRAPS-*— NQTRAPS  + 1 Increment  counter  @ 2 


OJ^-An)  - 61„(n-l)  + tq  Add  in  jet  A rate  and  A rate  due 

. S to  thrust  vector  - c.g.  offset  to 

-OMEGAQ  H-  AOSQTERM  + JETRATEQ  give  updated  Q-axis.  AOSQTERM 
1 — ^ is  a function  of  AOS 
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OMEGAQ 


PEDRI-  r 
^PTREG^ 


■A  Store  OMEGAQ  in  rev/ sec  @ 2' 


Yes,  trap  overflows 


DAPTEMP2-< — i (pj  axis  treated  exactly 

NRTRAPS  like  Q axis) 

A-«— OMEGAR  + DAPTEMP2 


OVERSUB 

Correct 

if 

overflow 
FC-3440  , 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE,  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


LM  RCS  DAP 


LUMINARY  1 D 


DOCUMENT  NO. 

FC-3470 


SHECT  150m4 


From  Preceding  Sheet 


R-RATE 


NRTRAPS^ NRTRAPS  + 1 Increment  counter  @2 


_R'  _ nz.  _ ^ — JR 

A-«^-OMEGAR  + AOSRTERM  + JETRATER 


in  rev/sec@  2' 


OVERSUB 

Correct 

if 

overflow 

FC-3440 


i 

1 

OMEGAR-* A 

\ 

/ 
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time 
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PRGMR 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3470 

ANALST  Me^,  T- 

y/zj^'jo 

6 /JO'ho 

APPR'D  ^Vf\  ^ 

a/^/70 
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From  Preceding  Sheet 


some 

fails 


Try  using  maximum  number  of  jets 


Input:  A.  ROTINDEX 

Output:  NUMBERT  - code  for  jet  policy  actually 
used: 

6- -all  appropriate  jets 
5- -quads  I and  III  used 
4- -quads  II  and  IV  used 
<4- -because  of  too  many  fails, 
no  useable  policy  was  found 

POLYTEMP  - jet  code  for  policy  used 
in  channel  6 format 


Yes:  no  jet  failures  were  encountered 


s 

£ 

NEXTP< ] 

I^OLYTEMP 

Store  code  for  later  use 
(translations  are  done  only 
after  rotations  are  through) 


TSNEXTP 
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ROT  INDEX 


No,  diagonal 
^ axis 

trans  / 


NUMBERT 


Yes,  translation 
^cannot  be  done 


Yes,  principal 
axis  trans. 


NEXTP- 


No,  a good  policy  { ABORTYa 
exists  for  diagon-  ^ 

al  trans.  using 

quads  2 + 4 or  'J/ 

1+3  / ALARM  \ 

/Store  alarm  \ 
/ code  (oct  02001f 
\ and  light  alarnV 

,,  \ / 

^ \ FC-3140  / 

-POLYTEMP  I 


Jet  fail- 
ures have 
disabled 
Y-Z  trans 
lations 


TSNEXTP 
. Sh.  25  . 


^ABORTYZ  +^ 


Invert  bit  1 
of  RCSFLAGS 


In  case  of 
tacking,  re- 
flip switch 
to  prevent 
wrong 
translation 
next  time 


NEXTP< 


Don't  at- 
tempt trans 
lation 


ITSNEXTP 
\Sh.  25^ 
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If  +Y  request 
do  -V 
then  +U 
If  -Y  request 
do  +V 
then  -U 
If  +Z  request 
do  +U 
then  +V 
If  -Z  request 
do  -U 
then  -V 


(ROTINDEX 

(ROTINDEX 

(ROTINDEX 

(ROTINDEX 

(ROTINDEX 

(ROTINDEX 

(ROTINDEX 

(ROTINDEX 

(ROTINDEX 

(ROTINDEX 

(ROTINDEX 

(ROTINDEX 


4) 
8) 
9) 
2) 
6) 
7) 

5) 

9) 

10) 
3) 

7) 

8) 


(The  coding  for  select  YZ  accepts  a value 
of  6 for  ROTINDEX  to  mean  +V  to  implement 
this) 
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^I^ZSf’To 

Mode  selection  logic:  manual  rate  command, 
minimum  impulse  command,  or  atti- 
tude hold/  automatic  maneuver. 

(Also,  X-axis  override) 
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APOLLO  guidance  AND  NAVIGATION 


LM  RCS  DAP 


LUMINARY  ID 


DOCUMENT  NO. 
FC-3470 


REV  1 


[SHEET  250F114 


^HCMOVE]^ 


Set 
RCSFLAGS. 
it  9 


Set  JUSTIN  bit 


Test  Flagword  13 
bit  12 


No,  set  up  rate  command  mode 


Yes 


A< 0 


RATERROR 


JUSTOUT 


> 

> 

DAPTEMP1< [4  1P-RHCCTR|  -1-  P-RHCCTR  + 46- P- RHCCTR]  STIKSENS  - PLAST 

PLAST< [4|P-RHCCTR|-1*P-RHCCTR  + 46- P-RHCCTR]  STIKSENS 

N 

DAPTEMPl:  Change  in  manual 

command 

PLAST:  Save  total  command 
in  rev/ sec@  2~^ 

’^ZEROENBLN 
Zero  and 
enable 
counters 
Sh.  35 


T 


20  de^sec  in  rev/sec/ (RHC  count) 

@ 2 for  normal  RHC  scaling 
(2  deg/sec  for  CSM-docked) 

40  deg/sec  in  rev/sec/(RHC  count) 
@2-15  fQj,  fjjjg  scaling 

(.  4 deg/  sec  for  CSM-docked) 
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DRAWN  U 

iclikL‘1 

ppnMP 

ANALST.  -r. 

Vz.r/7c 

LUMINARY  1 D 

DOCUMENT  NO. 

FC-3470 

DOCMR 

si^sHo 

APPR'D 

7.1  zSi’}^ 

REV  1 ISHEET29  0fll4| 

From  Sheet  25 


PERRORx 

CDUXD<<- 


0 

-CDUX 


Minimum  Impulse 
Command  Mode 


position  at  end  of  minimum 
impulse  mode 


in  revs 

9- 1 


^ Is  X 

OLDPMIN 
>0 
? X 


Yes,  stick  out  of  detent  last  time  or  jets 
fired  last  time.  Don't  fire  this  time. 


No,  stick  in  detent 

last  time.  Accept 
commands  this  time. 


CHECKP 
\Sh.  32^ 


FIREP 


+P  command 


Bit  3 

[Channel  3] 

\ ? i 


Bit  4 / 1 

[Channel  3l/ 

\ ? / No  command 

To 

-P  command  f 


JETSOFF 
''vSh.  32/' 


+XMIN 


-XMIN 


5 

i 

J.  J r V ■ - 1 U 

v 

/ 

Arbitrary  number  <14  msec. 
PJETSLEC  will  set  to  +14  msec, 
and  use  sign  to  choose  sense  of 
rotation 
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Minimum  impulse  command 
always  2 jet  burns 
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DOCUMENT  NO. 
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ANALST  -n. 

ESIB 

RBSH 

-n^siio 

REV  1 |SHED3l0fll4 

Save  for  test  on  next  pass 
(channel  31  uses  inverted  logic, 
complement). 


If  OLDPMIN  > 0,  RHC  is  out  of 
detent  in  the  P axis,  or  a min. 
impulse  was  fired  last  time. 


X translation 
commands 


Turn  on  X 
translation  jets 


No  jets  for  rotations,  so 
time  is  zero 


so 
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,^usino 
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CAMEaiDGE,  MASS. 

APOLLO  GUIDANCE  AND  NAVICATiC^J 

LM  RCS  DAP  j 

Df^AV/N  L-  'S*  lA.  CXi- I'v. 

? .%  G,'.*  A 

loll  hi  fA 

- 

A las  ho 

LUMINARY  1 D 

FC-3470 

a/asMo 

!.:cV  1 jbiiLLi  34«114  j 

(i 


JUSTOUT 


0 


, 

JT  JL-XV 

DXERRORj 

DYERRORj 

DZERRORj. 

TDT  AOT’-i 

■ 

-t  A 

D 

1 A 

3 

-r  A 

A 

•DT  Acnn-* A 

Q-RHCCTE 

R-RHCCTB 

t A 

-1  A 

InLtialLzatLon;  First 
manual  pass;  A = 0. 


Clear  bits 

11,  10 

of  RCSFLAGS 


Clear  PBIT 
and  QRBIT 


^EROENB]^ 


SAVEHAND-* — 
SAVEHAND  +1-. 
P-RHCCTR-* — 
Q-RHCCTR  ^ 
R-RHCCTR  ^ 


-Q-RHCCTR 

-R-RHCCTR 

0 

Oi 

-ol 


InhibitI 

inter- 

rupts 


Save  current  values 
for  Q,  R axis 
Zero,  and  let  them 
count  up  again  to 
update  command 
f or  next  pass 


ICISQSAV] 
< Q 


Save  Q 


'C13STALL> 
Test  for 
radar 
activity 
FC-3440 


T 
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Set  bits 
I 9,  8 of 
\ Ch.  13 


Enable  counters  to  read 
rate  commands  from  the 
RHC  into  P-RHCCTR.  Q- 
RHCCTR,  and  R-RHCCTR. 


C13QSAV  contains  Q 


Set  Flagword  13  bit  12: 
Internal  rate  command  Flag 


PURGENCY, 


CALCPERR 


CDUXD 

CDUYD 


\ desired  CDU 
^ angles 


E-<— CDEX  - CDEXD)  + MllCDUY  - CDUYD)  + lELEEFOl 
PERRORc E 


Return 
, via  Q . 


Mil:  from  GP  matrix 
(CDU  to  body  attitude 
transformation  matrix) 
DELPEROR  is  attitude  lag 
lag  angle  from 
KALCMANU  or  FINDCDUW 
automatic  steering 
E:  attitude  error 
input  to  TJETLAW 
and  SPSRCS 
PERROR:  the  same, 
for  display 
E,  PERROR  in  revs 
@2-1 


EDOTP4 — OMEGAP  - OMEGAPD  HEDOT:  rate  error  input  to 
T ^ TJETLAW  in  rev/sec@  2"3 


PURGENCY  +4  1 


Index  used  in  TJETLAW  to  select 
parameters  for  axis  desired  @2 14 


P axis 
U axis 
V axis 


Next  Sheet 


From  Preceding  Sheet 


Yes, 


Test  Flagword  13 
bit  13 


No,  not  docked 


^EADTJEr^ 


I 

r 

^via  IBNKCALL  | 

SENSET 

■YP  <-0 

SPSRCS 


Calculate  TJP\ 
for  docked 
vehicle 


Input:  E,  EDOT,  TJP 
Output:  TJP 


No 


Indicates  no 
X translation 
in  TJETLAW 
(always  0 since 
X translation 
not  done  with 
P jets) 


via  IBNKCALL 


Inputs:  E,  EDOT, 
AXISCTR, 
SENSETYP, 
phase  plane  pa- 
rameters from 
1/ACCS 
Outputs;  TJP- 
Paxis  jet  firing 
Time  - (sec.  ) 
FIREFCT  - signed 
phase  plane  dis- 
tance from  state 
to  FIREFCT  curve 


No,  test  further 
Note: 

Use  4 jets  if  state 
is  in  ZONEl  of 
TJETLAW  and  more 
than  4°  from 
FIREFCT  = 0 curve. 


▼ 

Next  Sheet 
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From  Preceding  Sheet 


fpjETSLEC  -6j 


No  rotation, 
turn  on 
translation 
jets  at  once 


4 jets 


I Test 

Flagword  5 
bit  5 

No,  Yes, 

quads  II  quads  I 

and  IV  Is  and  III 


s 

NUMI 

Y. - 

3ERT«-4 



NUMBE] 

1 ^ — 

ilT-t— 5 



NUMBE 

1 1 

;rt-^6 

In  Paxis  jet  selection 
routine  SELECTP: 

NUMBERT  = 6— use 
all  4 jets 

NUMBERT  = 5*-*use 
jets  on  qua-ds  I and 

III  only 

NUMBERT  = 4**use 
jets  on  quads  II  and 

IV  only 


iPJETSLECi 
Sh.  40 


Mil  IN3TSIJV.£NTATIC,N  US 
CAMBRIDCH,  ,V.ASS. 

APCaO  GUIDANCE  AND  NAViGATICN 

LM  RCS  DAP 

iUKA'./'l  L . -5^  tA  i''- (l/X  lA- 

IrJlJjs, 

' 



!oCC.V.R-PAtAV<jY(\  GifaiA 

7/isr/7. 

LUMINARY  ID 

cccu:,;;;rr  rio. 

FC-3470 

»/z^  'Oo 

kLV  1 (Sfliitf  39  Of -1141 

PJETSLEC 


IL-*— 1| 

TJP? 


alarm  2003  exit  - if  jet 
failures  render  /SELECTP' 

rotation  impossible  r Find  P 

\ axis  jets 

\ Sh.  72  , 


JETSOFF 
ksh.  32  ^ 


Inputs:  ROTINDEX  +1  for  +P; 

+0  for  -P 

NUMBERT 


Outputs:  POLYTEMP  jet  command  in 
channel  6 format 
NUMBERT:  code  for  jet  policy 
actually  used  (failures  may  have 
forced  modification  of  requested 
policy) 


No,  2-jet  policy  Yes,  4-jet  policy  used 

I \ =6?  / I 


NO.  PJETS* 


NO.  PJETS< 


NO.  PJETS  and  TJP  are 
used  by  state  estimator 
to  estimate  net  jet  ac- 
celeration. 


A< POLYTEMP 


Next  Sheet 
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From  Preceding  Sheet 


hannel  6, 


Turn  on  P jets  for  rotation 


time  > 150  msec.  ; 
Don't  skip  P axis 
next  cycle 
Since  time  will  be 
recomputed  before 
it  expires,  don't 
set  up  T6JOB  to 
turn  jets  off 
Go  directly  to 
Q,  R axis  com- 
putations. 


14msec.  is  the  short- 
est jet  time  allowed; 
any  (non- zero)  jet  time 
less  than  14msec.  is 
set  equal  to  14msec. 
and  given  the  sign  of 
the  sense  of  the  rotation 


't' 


Next  Sheet 


From  Preceding  Sheet 


± 

Inhibit 

inter- 

rupts 

Set  up  for  Jetlist  T6  program 


A time  to  turn  off  P jets 
Index  to  indicate  that  this  is  a P axis 
setup 

(4  ^ Q axis;  13  -^R  axis) 
via  IBNKCALL 


TSFURTHA« 

-ABSTJ 

TSFURTHA  H-l-^- 

0 

JTLST 


Set  up  TJ 
interrupts 

FC-3440 


( 


Inputs:  T6FURTHA,  T6FURTHA  +1 


Outputs:  jetlist  places  this  request  in 
a list  of  requests  to  be  honored, 
and  computes  A times  for  execution, 
setting  TIMES  to  cause  a T6RUPT 
at  the  proper  time  to  execute  the 
first  item  on  the  list.  The  T6RUPT 
program  (T6JOB,  FC-3440)  will  reset 
TIMES  for  the  next  item,  and  so  on 
through  the  list. 


Clear  bit  12 
RCSFLAGS 


Skip  P-axis  control 
on  next  DAP  pass 


ALTSYST 


Invert 
AORBSFLGI 


Allow 

inter- 

rupts 


Return 
via  Q , 


Alternate  systems  used  for  2- jet 
burns  to  even  out  fuel  consumption. 
(Flagword  5,  bit  5) 


Go  do  Q,  R - axis  autopilot. 
Next  Sheet 
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From  Preceding  Sheet 


QRAXIS 


EDOTR*- — OMEGAR  - OMEGARD  R-rate  error' 
EDOTQ<J OMEGAQ  - OMEGAQD  Q-rate  error ^ 


measured  rate  - de- 
sired rate  in  rev/ sec 
@2-1 

(overflow  correction 
by  routine  OVER  SUB 
FC-3440) 


(CALCQERR) 


Calculate  Q and  R axis  attitude  errors 


Is  bit  13 
of  channel  31 
\ set?  i 


Test  Flagword  13 
bit  12 


Is  \ 

OURRCFLG 
V set?  / 


Rate  command  mode? 


/QERRCALC 
Calculate 
attitude 
errors 
\ Sh.  104 


(Q.  RORGTS) 
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FC-3470 
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From  Preceding  Sheet 


+,  use  GTS 
unconditionally 


COTROLER 


use  RCS  unconditionall\ 


+0,  see  if  GTS  can/should  be  done 


TRYGTS 


Test  Flagword  13 
bit  14 


USEQRFLG 
\ =1?  / 


Yes,  must  use  jets 


ATT  can't  use  GTS 

T Yes,  test  further 


No,  o.  k.  \ 

to  do  GTS  \ Any  bits 

\ set  in 

\channel  5 ?/ 


GOTOGTS 


Yes,  jets  are  firing,  must  do  RCS  to  keep 
track  of  them 


GTS 

FC-3480 


(CHKINGTS) 


1NGTS>0 

•? 


No,  nulling  drive  has  been  set  up 


Yes,  set  up  nulling  drive 
while  jets  are  firing 


RCS 
Sh.  46 
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PKG.MR  

ANALST  7/zn^,.  LUM 

APPR'O  “LP.Aj, vt.  (rTVvfO.-#-.  -^hstio  1 


■t 04.  luminary  id 


DCCU.V.EAT  NO. 
FC-3470 

ISHtEr  aaGF' 


From  Preceding  Sheet 


^ RCS  ^ 


COTROLER 
+0 


Try  GTS  next  time  through 


r 

A< 

-EDOTQ 

L4 — - — 

“EDOTR 

1 

' 

/ xr/ 


ROT-TOUV 

^Convert  from  Q,  liiS 
to  jf.  V'axes 

Sh.  105 


Convert  from  Q,  R to  U,  V co-ordinates 


Inputs:  A containing  Q- component 
L containing  R- component 

Outputs:  A=  U-component'l 


i 

1 

OMEGAU'< A 

OMEGAV  « L 

L=  V- component  j 


in  rev/ sec  @ 2 


-3 


(SENSEGE^ 


in  rev/ sec  @2” 

X translation  logic 


iBit  7 channel  3 1/  command 

' set?  ' 


I Bit  8 channel  317  No,  -X  command 


Yes,  test  Flagword  13l 

bit  6 V Sh.  48. 


TTT.T.AnTrT.C\  Yes,  ullage 

set  ? 


No,  no 


Next  Sheet 
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FC-3470 

A;:\Lsr  -p. 

3 IsS.'Vd 

PtV  1 lirilU  4g  0-T14| 

-XTRANS 


(+XORULGE) 


ROTINDEX-# 4 

SENSETYP-^ 1 


ROTINDEX- 

SENSETYP- 


Test  Flag-word  13 
bit  11 


ACC4-2FT/^S^  4 jet  translation  requested 

V set?  I 


No,  2 jet  translation  requested 

Test  Flagword  13 
bit  10 


TRANS4 


No  ^^^ORBTFLGX  Yes 
\ set?  / 


Use  A 
system  jets 
for  trans- 
lation 


Use  B system 
jets  for 
translation 


NUMBERT-^ 2 


NUMBERT-* 3 


NUMBER1 


Next  Sheet 
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FC-3470 
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From  Preceding  Sheet 

I 


(tsnumbr^ 


SELCTSUB^ 

Find  jets 
without  fails 

Sh.  76 


Inputs:  ROTINDEX,  NTJMBERT 

Outputs:  POLYTEMP:  jet  commands  in 
channel  5 format 
NUMBERT:  (if  jet  failures  force 
a policy  different  from  that  re- 
quested, .NUMBERT  will  be 
modified  to  reflect  the  new 
policy) 


Yes,  jet  failures  have  made  the 
requested  translation  impossible 


f 

NEXTU*— bits  8,  7, 

4,  3 of  POLYTEMP 

. 

i 

NEXTV-« — bits  6,  5,  2,  1 of  POLYTEMP  | 

> 

Alarm  2002:  "jet  failures 
have  disabled  X trans- 
lations. " 

(Note  that  for  translations, 
SELECTSUB  indicates  fail- 
ure to  find  good  jets  by  re- 
turning a zero  in  POLY- 
TEMP, while  for  rotations, 
it  would  set  its  own  alarm 
and  go  to  NOROT  AT.  ) 


Save  U axis  part  of  jet  code 
for  later  execution  (when  U 
rotations,  if  any,  are  done) 


V axis  part  of  jet  code  (as  above) 


Next  Sheet 
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To  Sheet  55 


Yes.  still  in  manual 
rate  command  mode 


STILLRCS 

VSh. 


From  Preceding  Sheet 
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LUMINARY  ID  fC-3470 

a iD^iyi 

'•Ev  1 SH;n  51  c?  114 

Inhibit 

inter- 

rupts 


via  IBNKCA.LL 


/ ZATTERROR  \ 

/ Set  attitude  \ 
errors  and  desired' 
rates  to  zero  j 

\ FC-3440  / 

Allow 

inter- 

rupts 


;vel  exceeded; 

ite  control  NoxjoAPTEMPSM 
N.  ^|-RATEDB| 


-RATEDB  = -.  6 deg/sec 
in  rev/sec  @ 2-3 
for  ascent  and  descent 
= -. 3 deg/sec  in 
rev/sec  @2'^  for 
CSM -docked 


No  >^|DAPTEMP4l 

^1-ratedbL 


TCQR< 


Direct  rate  control 
last  time?  (Test  RCSFLAGS, 
bit  11) 


Is  \ 
QRBIT 
set 

Yes 


Do  pseudo- AUTO 
control 


[ENTERUVJ 


Direct 

rate 

control 


STILLRCS 
s.  Sh.  60^ 


DYERRORj. 

DZERROR- 


APCLLO  CUIOA.'XE  ANO  NAVICATI  AN 


LM  RCS  DAP 


LUMINARY  ID 


FC-3470  j 


From  Preceding  Sheet 


TARGETDB  = - RATEDB 

/ Js 

Not  within  rate  deadband  for  U ^s. 

N°/''^1uRATEDIF|- w^ithin  rate  deadband  for  U 
\^-TARGETDB/ 


Within  rate  DB 


for  V'  ? 


WRATEDIFl-r^ 

<-TARGE'rDI 


No,  not  within  rate  DB 
— I for 


VRATEDIF-«— C 


Zero  rate 
error  for 
V'^axis 


Yes , 

within  rate  DB 
for  V'  and  U' 


> 

f 

1 URATEDIFV — 0 

IVRATEDIFI- 1 
^-TARGETDI 

\ '>  y 


Zero  rate 
error  for 


U axis 


TOPSEUDC 
k Sh.  54  . 


QRTIME 


Next  Sheet 
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From  Preceding  Sheet 


No  Is  X.  Yes 

< TCQR  = 0 > — — 


(TOPSEUDC 


Indicate  have 
entered  direct 
rate  control 
for  Q R axes 


Clear 

ORBIT 


In  direct  rate 
over  4 sec.  so 
clear 

RCSFLAGS  bit  11 
to  indicate  next 
pass  should  be 
pseudo- AUTO 


MIT  IfJSTRD.’.'cNTATIW  1A3 
CAMBRIDGE.  MASS. 


:khand) 


Set  up  for 
return  from 
TJETLAW 


APCLLO  GUIDANCE  AND  NAVIGATICAJ 


LM  RCS  DAP 


LUMINARY  ID 


REV  1 


COCU.Vc.M  NO. 
FC-3470 


sHEtr  54  on  14 


From  Sheet  50 

1 


Minimum  Impulse  Command  Mode 


Inhibit 

inter- 

rupts 


via  IBNKCALL 


/ZATTERORN 

Zero 

attitude 

errors 

\ FC-3430  / 


QERROR- 

RERROR- 


Set  the  Mode  I error  needles  to  zero 


Allow 

inter- 

rupts 


yrEMP3i* 

\cHAN3lj 


Save  CHAN31  contents  so  it  won't  be  necessary 
to  read  the  channel  more  than  once 


^ Is  \ 
OLDQRMIN' 


No,  stick  out  of  detent  last 
time,  so  don't  fire  now 


Yes,  o.  k.  to 
fire  on  this  pass 


CHECKIN 


OLDQRMIN4 

bits  6,  5,  2,  1 of  TEMP31 


Save  Q and  R 
minimum  im- 
pulse command 
bits  for  test  on 
next  pass 
(inverted  logic, 
so  compl) 


XTRANS  Go  do  X translations 
Sh.  70  J (if  any)  at  once 


Next  Sheet 
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Jet 

times 

for 

mini- 

mum 

jet 

firings 
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i 

Iprgmr 

LUMINARY  ID 

1 ''f 

FC-.3470 

X 2.S'/7o 

^ l^sjno 

REV  1 ISHiEf  56C414 

From  Preceding  Sheet 

\ 


MINQR 


RETJADR- 


pLbQRMIN" 


GENADR(MINRTN) 


After  V axis  is  processed 
(AXISCTR  = 1 ) loop  back  to 
MINRT  to  do  U axis  (AXISCTR  = 0) 
^ince  jets  fired  this  time,  matte 
sure  they  don't  next  time. 

To  set  AXISCTR  first  time  through 
the  loop  for  the  V axis. 


MINRTN  j Return  point  to  do  loop 
, ' second  time 


AXISCTR- 


Test  Flagword  13 
bit  13 


Is  'N 

CSMDKFLG 
V set  ^ 
\ / 


Yes,  use  60  ms  minimum  impulse 


MIMRET 
V Sh.58V 


Next  Sheet 
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TJV  = TJU  +1 


Go  select 
jets  and 
turn  on 
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IrRC.V,!? 

LUMINARY  ID  fc-3470  ‘ | 

WSBI^ 

REV  1 iShEEI  58  0>114j 

BACKHAND 


Set  up  for  maximum 
number  of  jets 


5 

' 

NUMBERT  < 4 

t 

Note:  The  following  section 
of  coding  is  executed  twice; 
the  first  time  AXISCTR  = 1, 
the  second  time  AXISCTR=0. 
To  show  those  quantities 
which  are  indexed  by 
AXISCTR,  notation  of  the 
form:  SKIPU(V)  is  used. 
This  should  be  read  as 
SKIPV  when  AXISCTR  = 1 
and  SKIPU  when  AXISCTR 
= 0 


= 0,  skip  this  axis 


U (V)  RATEDIF  = desired  rate  change 
in  rev/sec  @2"^ 

1/ANET2  + INDEX  = l/net  acceleration 

available 

2 


2^ 


sec 

rad 


Don't  skip 
next  time 


desired  rate  change 
net  acceleration 

available 
n 25 

10. 67  sec 

which  is  close  to  the  TJET 
scaling  of  10.  24  seconds 


Jet  on  time  = 


1 2 * 

Results  scaled  ^ — 


\a*-  -3[U(V)RATEDIF(1/ANET2  +1(17))]  A-^ — 3[U(V)RATEDIF(1/ANET2  + 2(18))] 
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/^ATTSTEER^ 

VSTILLRCSy 

> 

QERROR 

RERROR 

\ 

f 

/ ROT- 

touA 

/ Convert  \ 
( to  U'  V'  } 

\ axes  / 

\ Sh. 

105  / 

RCS  Attitude  Steering 


Q axis  attitude  error 
R axis  attitude  error 


Inputs:  A containing  Q- component 
L containing  R- component 

Outputs:  A =U' -component 


i 

i 

UERROR< A 

> 

Next 

Sheet 

L =V' -component 
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If  SNUFFBIT  is  set  during 
powered  descent,  omit 
U,  V jet  firings. 
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2—  ^+U 

3—  *■+¥ 


No,  can  simply 
turn  jets  on 


Inputs:  NUMBERT,  ROTINDEX 


OUTPUT:  POLYTEMP  - U(V)  rotation 
jet  commands  in  chan- 
nel 5 format 

NUMBERT  - (if  fails  cause 
modification  of  reques- 
ted jet  policy,  NUM- 
BERT is  altered  to 
reflect  the  policy  ac- 
tually used. ) 


If  jet  fails 
disable  rota- 
tion, SELCTSUB 
does  ALARM 
and  exits  here 


\ 

V 

' 

NOROTAT 

k Sh. 

67  > 

SELCTSUB' 


Find  jets 
Sh.  76 
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Set  up  a timed  RCS 
jet  burn 
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Inhibit 
i 


AXISCTR 


WRITEU 


WRITEV 


Write  bits  8,  7,  4,  3 of  POLY- 
TEMP  into  bits  8,  7,  4,  3 
of  channel  5 


Write  bits  6,  5,  2,  1 of  POLY 
TEMP  into  bits  6,  5,  2,  1 
of  channel  5 


on  U V 


\ Return 
via  Q 


Return 
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DOSKIP 


Come  here  for  jet  times  <150  msec. 


No,  skip  minimiim 
impulse  logic 


< Is  \ 
ABSTJ 
<14  msec 


Yes,  do  minimum  impulse  of  14  msec. 


ABSTJ< 


■14msec 


< Sign< 
TJU(V1 


TJU(V)*-^14msec| 


TJU(V)*--H  4msec 


rSENSETYI 


Anything  < 14msec.  be- 

4msec  comes  14  msec.  (theoret- 
ical minimum  the  jets  can 
handle) 

SENSETYP:  2—^+X  or  ascent  burn 
1— »-X 

O— ♦•no  ±X  trans  or  as- 
cent burn 

-»  Select  single  jet  for  minimum 
impulse 

1 Channel  4 is  the  lo-w  order 

half  of  a 33  stage 

y't  1 counter.  Bit  1 is 

“^Is  bit  1 of^Ofes  , j II  j M 

1-  1 .1  -I  used  for  random 

channel  4=  1 i t 

[ selection  of  mini- 

I mum  impulse  jets. 


NUMBERT*- SENSETYP  - 1 NUMBERT-* — 0 NUMBERT< — 1 


NTJMBERT:  1— »use  +X 
^ l-iet  for  U(V)  rotation 

„ . . . 0— »use  -X 

If  not  a minimum  im-  . . „ tt/t7\  j.  4.- 

n TVTTTTi/mTT'Tjrn  ■ net  for  U(V)  rotation 

pulse,  NUMBERT  is  ■’ 

as  left  by  TJETLAW, 

and  may  also  have  the  value  4,  meaning  "use  2 
jets.  " 3 means  "use  B system";  2 means  "use 
A system" 
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If  jet  fails  disable 
rotation,  SELCTSUB  does 
alarm  and  exits  here 


^ NOTMIN^ 

i 

1 

|T6FURTHA  +1-*— 4 

i 

' 

^ WRITEU^ 

i 

£ 

Inputs:  NUMBERT,  ROT'N- 
DEX 

Outputs;  POLYTEMP  : U(V) 
rotation  jet  commands 
in  channel  5 format 
NUMBERT  : if 
jet  fails  force  modifica- 
tion of  the  requested  jet 
policy,  NUMBERT  is 
altered  to  reflect  the 
policy  actually  used. 


Write  bits  8,  7,  4,  3 
\of  POLYTEMP  into/ 
bits  8,  7,  4,  3 of 
channel-  5 


T6FURTHA  +14— 13| 

5 

^ n 

Q WRITEV^  ' 

> . i 

!_ 1 

Write  bits  6,  5,  2,  1 
\of  POLYTEMP  into/ 
bits  6,  5,  2,  1 of 
channel  5 


Axis  tag 
for  T6jet 
turnoff 
routine 
(T6JOB) 
to  use  to 
select  the 
axis  for 
which  jets 
are  to  be 
turned  off. 


Turn  on 
U(V)  jets 


\ Return  / 
\ via  Q / 


Return 
V via  Q 


T 


^ J 
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A time  at  which  T6JOB 
should  turn  off  jets  for 
this  axis 


Put  this  turn-off  request 
in  proper  chronological 
order  with  respect  to 
other  requests. 


Skip  this  axis  the  next 
time  (note  that  this  is  the 
only  place  that  SKIPU(V) 
is  set  to  zero) 


Next  Sheet 


Come  here  in  manual 
modes  if  no  rotations  are  to 
be  done  to  do  translations 


No  rotations  in  U or  V axes  - 
zero  times  so  rate  estimator 
has  accurate  jet  firing  infor- 
mation. 


MIT  iriSTRUMiiSTATlON  UB 

CA.M3RI0GE,  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATIGN 

LM  RCS  DAP 
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x:\LSi 

REV  1 fSKEtr  70OEli4 

Turn  on  X translation 
jets 


P-axis  Rotation 
Jet  Selection 
Routine 


Y,  Z-axis  Translation 
Jet  Selection 
Routine 


^ELECTI^  ^ELECTY^ 


R 

JL  JljiVlJr  IN  U iVi  

NUMBERT  < ■ 

TE  MPNU  M<^NU  MBERII 


For  SELECTYZ 
enter  with 
desired  value 
for  NUMBERT 
in  A. 

Otherwise, 
inputs  are 
the  following: 


Next  Sheet 


NUMBERT:  index  for  jet 
select  policy 

ROTINDEX:  index  for  re- 
action (rotation  or 
translation)  desired 
See  Sheet  75 
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jg  Yes,  input  error 

rotindexN 

s.  =077768/ 


JETSALL  -1 


' 

t 

ABORTYZ  +2 

If  channel  31  bits  12-9 
contains  an  invalid  con- 
figuration (due  to  switch 
failure),  ROTINDEX  will 
be  set  to  077760  before 

SELECTYZ  is  called.  If 
this  occurs,  the  instruc- 
tion sequence: 

INDEX  ROTINDEX 
MASK  JETSALL 

will  become  the  instruc- 
tion 

TC  JETSALL  -1 

which  causes  the  routine 
to  exit,  skipping  the 
translation,  but  with  no 
alarm 


POL  YTEMP-«-(TYPEP#NUMBERT)A(JETSALL#ROT  INDEX) 


# denotes  indexing. 
A denotes  logical 
"and",  implemented 
by  the  mask  in- 
struction. 
POLYTEMP  now 
has  only  those  bits 
set  appropriate  to 
both  the  reaction 
desired  and  the  jet 
policy  desired, 
formatted  for  writ- 
ing into  channel  6. 
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No,  there  are 
disabled  jets  among 
those  selected 


Yes,  routine 
is  done 


CH6MASK  (maintained  by  RCS 
failure  monitor  in  T4RUPT)  con- 
tains I's  in  bit  positions  corres- 
ponding to  disabled  jets,  and  zeros 
elsewhere. 


Exit 


Yes,  no  policies  left  to  try.  Raise  an  alarm. 


ALARM 


No,  try  a 
new  policy 


020038 
Turn  on  prog. 
alarm  light 
FC-3140 


5 

< 

JETSOFF 

1 Sh. 

32  J 

Go  fire  jets  for  Y Z 
translation,  if  any 


Loop  back  to 
try  again 


ALARM  02003:  "jet  failures  have  disabled 
P-rotation" 

Note  that  for  translations,  this  alarm  will 
never  be  entered  because  in  trying  out 
policies,  eventually  POLYTEMP  will  be  the 
result  of  trying  A + translation  with 
- translation  jets  or  vice-versa.  The 
result  will  be  that  POLYTEMP  = 0,  which 
will  pass  the  jet  failure  test  regardless 
of  how  many  jets  are  failed.  The  trans- 
lation program  eliminates  bad  return 
policies  by  use  of  NUMBERT  and  ROTINDEX. 

Original  value  of  NUMBERT  is  now  ignored.  Values  for 
NUMBERT  from  5-0  will  be  tried  in  sequence  until  a 
useable  policy  is  found,  or  until  none  is  left. 
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Values  for  JETSALL  (indexed  by  ROTINDEX) 


Octal 

value 

Jets 

Reaction 

JETSALL 

00252 

16,  8.  11,  3 

-P  rot. 

00125 

4,  12,  15,  7 

+P  rot. 

+2 

00140 

4,8 

-Y  trans. 

+3 

00006 

15,  3 

-Z  trans. 

+4 

00220 

16,  12 

+Y  trans. 

+5 

00011 

11,  7 

+Z  trans. 

+6 

00151 

4,  8,  11,7 

+V  trans. 

+7 

00146 

4,  8,  15,  3 

-U  trans. 

+8 

00226 

16,  12,  15,  3 

-V  trans. 

+9 

00231 

16,  12,  11,  7 

+U  trans. 

+ 10D 

00151 

4,  8,  11,7 

+V  trans. 

Channel  6 bit  assignments 


Bit 

no. 

8 

7 

6 

5 

4 

3 

2 

1 

Jet 

no. 

16 

4 

8 

12 

11 

15 

3 

_7_ 

Values  for  TYPEP  (indexed  by  NUMBERT) 


P-jet  configuration  for  LM  with  P 
rotational  axis,  and  U,  V,  Y,  Z 
translational  axes 


Q,  R Rotation 
and  X Translation 
Jet  Selection  Routine 

(SELCTSUH 


POLYTEMP^(ALLJETS#ROTlNDEX)A(TYPEPOLY#NUMBERT) 


Inputs:  NUMBERT:  index  for  jet 
select  policy 

ROTINDEX:  index  for  desired 
reaction 

# denotes  in- 

) A(T  YPEPOLY#]SrUMBERT  )|  dexing 

A denotes 
logical 
"and",  im- 
plemented 
by  the  mask 
instruction. 

POLYTEMP  now  has  only  those  bits  set 
appropriate  to  both  the  reaction  desired  and 
the  jet  policy  specified.  Bit  positions  are 
assigned  exactly  as  in  channel  5. 


X Is  \ 

POLYTEM]^ 

ACH5MASI^ 


No,  there  are  disabled  jets  among  those 
1 selected 


Yes,  routine 
is  done 


Return 


CH5MASK  (maintained  by 
RCS  failure  monitor  in 
T4RUPT)  contains  I's  in 
bit  positions  corresponding 
to  disabled  jets,  arid  O's 
elsewhere. 


NUMBERT- 
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FAILOOP , 


Ignore  requested  policy.  Values  for 
NUMBERT  from  3-0  will  now  be  tried 
until  a good  policy  is  found  or  until  no 
possibilities  are  left. 


POLYTEMP-«e-{ALLJETS#ROTINDEX)A(TYPEPOLY#NUMBERT) 


(same  as 
above) 


Is 

•TOLYTEMPA^ 

\CH5MASK/^ 

0?/ 


No,  there  are  disabled  jets  among 
I those  selected. 


Yes,  a good 
policy  has 
been  found 


Return 
via  Q , 


^ Is  \ 
JMBER3 
.=  0?/' 


Yes,  no  more  possibilities  remain. 
I Raise  an  alarm. 


Next  Sheet 


NUMBERT*— NUMBERT  - l[  Count  down  NUMBERT  and  go 
I try  again. 
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Cannot  fire  jets,  so  effective 
jet-on  time  is  0.  TJU  if 
AXISCTR  = 0;  TJV  if  AXISCTR 
= 1. 


ALARM  02004:  "jet  failures 
have  disabled  U-V 
rotations.  " 

Note  that  for  translations,  this 
alarm  will  never  be  entered, 
because  before  NUMBERT  be- 
comes 0,  a policy  will  have 
been  tried  which  involves  doing 
+X  translations  with  -X  jets  or 
vice-versa.  The  result  will  be 
that  POLYTEMP  = 0,  which  will 
pass  the  jet  failure  test  regard- 
less of  how  many  jets  are 
failed.  The  routine  then  re- 
turns. POLYTEMP  = 0 will 
indicate  to  the  calling  program 
that  a good  jet  policy  for  trans- 
lation could  not  be  found. 


Continue  as  if  no  rotations 
had  been  commanded  for 
this  axis. 
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Values  for  ALLJETS  (indexed  by  ROTINDEX) 


Octal 

value 

Jets 

Reaction 

ALLJETS 

00110 

13,  6 

-U  rot. 

+ 1 

00022 

9.  2 

-V  rot. 

+2 

00204 

14.  5 

+U  rot. 

+3 

00041 

10,  1 

+V  rot. 

+4 

00125 

13,  9,  5,  1 

-X  trans. 

+5 

00252 

14,  10.  6.  2 

+X  trans. 

Channel  5 bit  assignments 

Bit  no.  8 7 654321 

Jet  no.  14  13  10  9 6 5 2 1 
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DOCUMENT  NO. 
FC-3470 


SHEET  SOOfU^* 


Attitude  - error  rate 
EDOT,  deg/sec 


outer  rate 
limit  = 1.  73- 


mner  rate 


limit  = 1.  125 


target  rate  > 
for  pos.  jets- 


Above  deadzone, 
fire  neg.  jets  to 
decrease  rate , if 
jets  are  not  in- 
hibited 


r+0.  1 deg/  sec 

rate  DB  in  powered  flight 

4 8 


(POSTHRST  +3 ) 


From  preceding  sheet 


SETCTR 


Come  here  (SETCTR)  when 

jets  are  turned  off  or  when 

jets  are  still  firing  and  a / n 

torque  reversal  is  commanded  CTRCHECK 


P(U,  V)JETCTR«-P(U.  V)TIME 


in  decisec.  @ 2 


ZAPTJ 


Set  jet  inhibition  counter  to 
inhibit  jet  firings: 

. 4 sec  inhibition  period  for  P-axis  ^ 

1.  0 sec.  inhibition  period 

for  U or  V axes  Test\ 

; Jet  firipas  _^.Q V)JETCTI 

are  still  inhibited  \ ^ 


TJP(U,  V)*-0  Inhibit  jet  firings 


SO 

Last  jet  firing 
inhibition  period 
has  elapsed  - 
ok  to  fire  jets 


Return 


Return 
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REV 


(^JETLAA^ 


f. 

Save 
,Q  in 
HOLDQ 

EDOT  = rate  error 
in  bottom  half  of  plane; 
reflect  into  top  half 


Note:  The  quantities  ADRSDIFl 
and  ADRSDIF2  are  used  as 
indices  to  allow  the  approp- 
riate functions  (which  are  to 
be  used  to  compute  jet- on 
time)  to  be  selected  from  the 
table  previously  set  up  in 
1/ACCS.  The  particular 
functions  chosen  will  depend 
on  whether  positive  or  negative 
jets  are  to  be  fired,  whether 
one  or  two  jets  are  to  be  used, 
and  what  axis  is  being  con- 
sidered. 

The  quantities  1/ACOAST, 
FIREDB,  COASTDB,  and 
AXISDIST  are  indexed  by 
ADRSDIFl.  1/ANETl, 
1/ANET2,  ACCFCTZl,  and 
ACCFCTZ5  are  indexed  by 
ADRSDIF2.  (See  table  on 
Sh.  106).  The  table  of 
functions  computed  in 
1/ACCS  is  on  Sh.  107. 


Next  Sheet 


Attitude  error  in 
rad  @ ir. 

Attitude  error  rate 
in  rad/ sec  @ 7r/4. 

Shift  to  parameters 
for  bottom  half  of 
plane . 

Index  for  jet  para- 
meters--may  be 
changed  later  for 
4-jet  burns 

The  value  in  A is  to 
be  stored  in  ROTSENSE 
and  is  used  both  to 
determine  the  direction 
of  rotation  and  to  rescale 
from  the  TJETLAW 
scaling  of  4 sec.  to  the 
T6  scaling  of  10.24  sec. 
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E s 


Roughlaw  for 
Neg.  EDOT 


EDOT  is  now  in  rad/sec  @7r/32 

EDQTSQ  = (EDOT)^  in 
rad^/sec^ 
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EDOT  < — L 

EDOTSQ-J-  (2"^)  • (EDOT)^ 
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For  ZONES,  if  EDOT  was  positive  when  TJETLAW  was  Next  Sheet 

entered,  then  positive  jets  are  to  be  fired.  If  EDOT  was 
negative,  then  negative  jets  are  to  be  fired. 
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in  rad 
@ TT  /4 
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•i/ 


. i 

f. 

^Anything  <14  msec 
will  become  14  msec 
later 

! 

Next  Sheet 


250  msec  is 
large  enough  to 
insure  a skip 
request  will  not 
be  made  for  axis 
under  consider- 
ation and  that 
new  jet  on  time 
will  be  deter- 
mined for  the 
axis  at  next 
control  sample 
period  (.  1 sec.  ) 


, MIT  INSTRUMEMTATiai  LAB 
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^ETURNT^ 


Common  exit  from  TJETLAW; 
all  branches  come 
here  eventually 


TJETU#  AXISCTR^^ A-  ROTSENSE 


Rescale  and  attach  sign  to  jet  time. 

Store  in  TJETU  (TJP,  TJV) 

(Scaling  changed  from  4 sec.  to  10.  24  sec.  ) 


Has  1/ACCS  called  for  maximum  jets 
because  of  a large  offset  acceleration? 


(TJETU#AXISCTR)  Yes. 
X (ACCSWU#AXISCTR) 


use  maximum,  number  of  jets. 


± 

NUMBERT<— 4 


(This  test  is  not  relevant 
for  the  P axis;  the  P axis 
coding  sets  HUMBERT 
itself  after  the  call  to 
TJETLAW) 


Return  via 
HOLDQ 


HOLDQ  contains  Q 


MIT  INSTRUMErnATION  LAB 

CAMBRIDGE.  MASS. 

APOLLO  GUIDANCE  AND  NAVIGATION 

LM  RCS  DAP 

drawn<^;7 

WMB^ 

PRGMR 

/ 

LUMINARY  ID 

DOCUMENT  NO. 

FC-3470 

ANALST 

3 Us  hi 

ZlzSlHii 

REV  1 SHEET  S^OFimI 

ZONEl 


Enter  with  FIREFCT 
+ FLAT  in  A.  A £ 0 


'2^^!ACCFCTZli¥ADRSDlF2{FIREFCT  + FLAT  - AXISDISTtfADRSDIFll] 


+72 

Multiply  by  2 for  scaling. 

HH  = (ACCFCTZ1(5)  x (signed  distance 
from  E-axis  intercept  of  phase  plane 
' state  traiectory  to  DB3(4) 

NOTE:  In  Coasting  Fli^t 


FLAT  - DB3(4)-DB!2/2\ 
AXISDIST  = 0 ^ ' 

In  Powered  Flight: 

FLAT  = 0 

AXISDIST  =DB1(2)-EB3(4). 

Units  of  HH  are  sec^  @ 2^. 

'Z 2HH  is  the  jet  on  time  from 
the  E-axis  to  the  intersection  with 
the  deadzone  boundary  parabola. 
To  save  computation  time,  the 
square  root  is  approximated  by 
one  of  two  formulas  below, 
depending  on  the  magnitude  of  HH. 

The  nominal  value  for  this  test 

As 


Multiplication  by  1/2  is  not 
done  in  coding  because  scaling 
takes  the  1/2  into  account. 


Yes,  so  can  fire  full 
time  without  overshoot 


1 2 
criterion  is.j(50  msec)  . 


implemented,  the  FORMULAS 
branch  is  taken  so  long  as  the 
high  order  half  of  HH  is  ^00002g. 
Thus,  so  long  as  the  high  order 


part  of  HH  < 
will  be  used 
1 


OOOOSo,  FORMULAS 
o 


oooos 


8 


(54.  2 msec)  scaled  at  2" 


Y 
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In  ZONE  1,  2,  or  3: 

If  EDOT  was  positive 
when  TJETLAW  was 
entered,  then  negative 
jets  are  to  be  fired. 

If  EDOT  was  negative, 
then  positive  jets  are 
to  be  fired.  In  ZONEl, 
fire  to  drive  state  to 
target  parabola.  In 
ZONE2,  fire  to  drive 
state  to  E-axis;  and  in 
ZONES,  fire  minimum 
impulse  (driving  state 
in  direction  of  E-axis) 

TTOAXIS  is  jet  firing 
time  to  reach  axis  from^2 
present  state  in  secs@2 
EDOT  in  rad/sec  @ 7r/2^ 

Since  it  will  take 
150  msec  just  to  get  to 
the  axis,  turn  jets  on  for 
full  control  sample  period 
until  next  time  through. 
(This  will  inhibit 
skipping  of  the  axis 
next  cycle  so  TJET 
will  be  recomputed  in 
100  msec) 
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ZONE  5 


) 


To  left  of  deadzone. 


1 

' 

L< A 

> 

t 

Save  A (from  ZONE  4,  5;  Sh.  89) 
in  L in  rad  @ tt  /4 


ADRSDIF2  is  used  in  the  following 
logic  to  index  ACCFCTZ5  and 
1/ANET2.  For  this  purpose,  the 
value  of  ADRSDIF2  in  the  case 
where  EDOT  was  originally  s 0 
must  be  1 less  than  the  value  of 
ADRSDIF2  in  the  case  where 
EDOT  was  > 0 (see  Sh.  106). 

Yes,  EDOT  was  In  the  former  case,  ADRSDIF2 

has  already  been  incremented  by 
1 (see  Sh.  86).  Therefore,  to 
obtain  the  proper  value,  ADRSDIF2 
must  now  be  decremented  by  2. 

JL 


^0  when 
TJETLAW 
was  entered. 


ADRSDIF24-ADRSDIF2 


Restore  A,  which  was  saved 
in  L,  in  rad  @ Jr/4. 


* 

4|A-  (ACCFCTZ5#ADRSDIF2y|j^ 

TTOAXIS4— EDOT-  (l/ANET2#ADRSDIF2) 


Multiply  by  4 for  scaling. 

HHj^  = ACCFCTZ5  (1)  x (signed 

horizontal  distance  from  vehicle 
state  to  COASTFCT=0  target  parabola). 
HH,^  in  sec2  @ 2^ 


"D 


time-to-axis  = E x 


net 


in  sec  @ 2 


+2 


In  this  zone.  TJET  = - TTOAXIS  + 
V(TTOAXIS)^+ 2HH.  This  is  approximated  by 

linear  interpolation  as  shown  on  next  sheet- 
(See  Spacecraft  Autopilot  Development 
Memo  2-68  by  R.  D.  Goss,  Eq.  14  and 
Eq.  15). 


'J' 
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DOCUMENT  NO. 

FC-3470 
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ISHEEnoi  on  14 

I 


I 


I Maximum  jets  for 

i U,  V axes  @ 2^4 


I In  jet  selection  routine 
I for  P-axis,  a test  is 
made  on  -FIREFCT. 

I If  -FIREFCT >4°  and 
I TJP  (jet  on  time) 

>160  msec,  then  4 
I P-axis  jets  are  re- 
quired. 

' Setting  of  FIREFCT  to 
1 NEGMAX  (=40000q  = 
o o ° 

|-45  @45  ) guarantees 

_j  that  4 P-axis  jets 
will  be  used  if  TJP> 
160  msec.  FIREFCT 
is  not  used  again  in 
RUFLAW  and  is  not 
destroyed. 
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Multiply  by  2" 
for  scaling. 
-FIREFCT  (in 
rad  @4  T ) is  the 
signed  distance 
from  the  point 
where  the  state 
trajectory 
would  cross  the 
E-axis  if  jets 
were  fired  now 
to  the  point 
DB^^2)  O’’  the 
E-axis.  If 
-FIREFCT>0, 
state  is  out  of 
the  deadzone 
and  jets  are  to 
be  fired.  If 
-FIREFCT  < 0. 
state  is  in  the 
deadzone  and 
no  jets  are  to 
be  fired. 


A< 0 


4 



RETURNTJ 


Jets  on  full  time; 
too  far  from  axis 
to  get  to  it  before 
next  update. 
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•ERRCAL^ 


DAPTEMPK-  CDUY  - CDUYD 
DAPTEMP2-<^CDUZ  - CDUZD 

E«-(CDUY  - CDUYD)(M21) 

QERROR-«t— (CDUZ  - CDUZD)(M22) 
+ DELQEROR  + E 


ERRCAL 


\ 

E<r-DAPTEMP1-  MSI 

RERROR<— (DAPTEMP2-  MS2)  + 
DELREROR  + E 

f 

Return 
Via 

Q 


2's  complement 
difference  between 
CDU  angle  and  angle 
desired  in  rad'  @ r. 

In  rad  @ tt 

M21.  M22,  MSI.  M32 
are  components  of 
the  axis  transformation 
matrix;  gimbal  to 
pilot  axes. 


(CDUY  - CDUYDXMSl) 
in  rad  @ ff 
in  rad  @ tt 
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Table  of  Values  Assigned  to  the  Indexes  ADRSDIFI  and  ADRSD1F2 


1/ACCS  Table  for  Functions  Required  by  TJETLAW 


ROUTINES  CALLED  WHICH  ARE  FLOWED  ON  OTHER  FLOWCHARTS 


Routine 

Name 

Where 

Flowed 

Description 

Where 

Called 

ACDT+CI2 

FC-3480 

Turn  gimbal  drives  on/off 

3 

ALARM 

FC-3I40 

Store  alarm  code  and  light  alarm 
light 

23,  49,  74,  78 

BAILOUT 

FC-3I40 

Store  abort  code  and  cause  restart 

2 

CHEKBITS 

FC-3440 

See  if  DAP  may  stay  on 

2 

CI3STALL 

FC-3440 

Test  for  radar  activity 

35 

GTS 

FC-3480 

Gimbal  trim  control  system  entry 

44 

JTLST 

FC-3440 

Set  up  jet  list 

70 

OVERSUB 

FC-3440 

Correct  if  overflow 

8,  9,  10,  13, 

14,  15,  16 

SUBDIVDE 

FC-3440 

Division  subroutine 

8,  9,  10 

TIMEGMBL 

FC-3480 

Set  up  damped  nulling  drive 

45 

ZATTEROR 

FC-3430 

Zero  attitude  errors 

27,  52,  55 
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FLAGS 


Name 

Meaning 

When  Set 

PULSEFLG 
(Flagword  13 
bit  15) 

Minimum  impulse 
command  mode  in 
"att  hold"  (V76) 

USEQRFLG 
(Flagword  13 
bit  14) 

Gimbal  unusable. 

Use  jets  only. 

CSMDKFLG 
(Flagword  13 
bit  13) 

CSM  docked  to  LM. 

OURRCFLG 
(Flagword  13 
bit  12) 

Current  DAP  pass  is 
rate  command 

ACC4-2FL 
(Flagword  13 
bit  11) 

4 jet  X-axis  translation 
requested 

AORBTFLG 
(Flagword  13 
bit  10) 

B system  for  X- 
translation 

XOVINFLG 
(Flagword  13 
bit  9) 

X-axis  override 
locked  out 

DRIFTDFL 
(Flagword  13 
bit  8) 

Assume  0 offset 
drifting  flight 

ULLAGFLG 
(Flagword  13 
bit  6) 

Ullage  request  by 
mission  program 

APSFLAG 
(Flagword  10 
bit  13) 

Ascent  stage 

SNUFFBIT 
(Flagword  5) 
bit  13) 

U.  V jets  disabled  during 
DPS  burns  (V65) 

AORBSFLG 
(Flagword  5 
bit  5) 

Prefer  P-axis  jet  pairs 
7.15  and  8,16 

RCSFLAGS 
(bit  12) 

Perform  P-axis 
calculations 

Meaning 

When  Clear 

Where 

Set 

Where 

Cleared 

Where 

Tested 

Not  in  minimum  impulse 
command  mode  (V77) 

22.  50 

Trim  gimbal  may  be  used 

44.  62 

CSM  not  docked  to  LM. 

12.  38. 
57.  62 

Current  DAP  pass  is  not 
rate  command 

36 

27 

26.  28. 
43.  50 

2 jet  X-axis  translation 
requested 

48 

A system  for  X- 
translation  preferred 

48.  58 

X-axis  override  okay 

25 

Use  offset  acceleration 
estimate 

17.  47. 
63.  85 

No  internal  ullage 
requested 

46 

Descent  stage 

47,  63 

U,  V jets  enabled  during 
DPS  burns  (V75) 

63 

Prefer  P-axis  jet  pairs 

4, 12  and  3, 11 

42 

42 

31,  39 

Skip  P-axis  calculations 

20 

42 

20 

FLAGS  (cont) 


Name 

Meaning 

When  Set 

Meaning 

When  Clear 

Where 

Set 

Where 

Cleared 

Where 

Tested 

QRBIT 
(RCSi’LAGS 
bit  11) 

In  "direct"  rate  command 
for  Q,  R axes 

Not  in  "direct"  rate 
command 

54 

26.  35 

54 

26.  52 

PBIT 

(RCSFLAGS 
bit  10) 

In  "direct"  rate  command 
for  P-axis 

Not  in  "direct"  rate 
command 

33 

33.  35 

26.  29 

RCSFLAGS 
(bit  9) 

Hand- controller  just 
sensed  as  out  of  detent 

Hand- controller  just 
sensed  as  in  detent 

28 

26.  50 

26 

CALLGMBL 
(RCSFLAGS 
bit  5) 

Perform  ACDT+C12 
routine  to  set  engine 
gimbal  bits 

ACDT+C12  not  being 
called 

3 

RCSFLAGS 
(bit  1) 

Used  to  alternate  in 
"tacking"  translation 
policies 

Used  to  alternate  in 
"tacking"  translation 
policies 

23.  24 

23.  24 

24 
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ERASABLE  LOCATIONS  USED 


AGC  Tag 


ABSEDOTP 


ABSTJ 


ADRSDIFl 


ADRSDIF2 


AGC 

AGC  Units  Scaling 


Temporary  storage  for  magnitude  of 
EDOT(=/EDOTP  - 1) 

Temporary  storage  for  magnitude  of 
TJP(U.  V) 

Index  to  select  phase  plane  parameters 
for  the  axis  being  computed 

Index  for  jet  parameters 


ALPHAQ(R) 

AOSQ(R)„ 


AOSQ(R)TERM 


AXISCTR 


Most  significant  half  of  AOSQ  and  AOSR 

Disturbing  acceleration  due  to  thrust  vector 
/c.g.  offset  or  other  external  torques 
(=GSOP<^) 

Addition  to  vehicle  rate  resulting  from 
AOSQ(R)  during  one  100  msec,  period 

Index  to  select  parameters  for  axis  desired: 
-l^ — P-axis;  0< — U-axis;  +1< — V-axis 


CDUX(Y.  Z)D 


CDU  - desired  values 


COEFFQ 


Used  for  first  column  of  matrix  to 
convert  vector  from  Q,  R coordinates  to 
U^  V'coordinates 


COEFFR 


Used  for  second  column  of  matrix  to 
convert  vector  from  Q,  R coordinates  to 
JJ'',  V^coordinates 


COTROLER 


DELCDUX(Y,  Z) 


DELP(Q.  R) 
EROR 

DKKOASN 

DKOMEGAN 

DKTRAP 


Controls  access  to  Q,  R axis  gimbal  trim 
system 

A commands  from  steering  interface; 
used  to  update  CDUX(Y,  Z)D  (above) 

Attitude  error  lag  angles  from  automatic 
steering  routines 

Kalman  filter  gain  parameter  {a)  for  CSM/LIV 
Kalman  filter  gain  parameter  (co)forCSM/LM 
Trapsize  for  state  estimator:  CSM/LM 
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ERASABLE  LOCATIONS  USED  (cont) 


AGC  Tag 


Meaning 


DOWNTORK 

Downlink;  cumulative  jet  on  times  for  axes: 
0— H-P;  1— y -P;  2— T+U;  3 — >-U;  4 +V; 

5->  -V 

DX(YZ)ERROR 

Manual  mode  X(Y,  Z)  attitude  error  - 
cumulative 

E 

Attitude  error 

EDOT 

Attitude  rate  error 

EDOTP(Q.  R) 

Biased  rate  estimates 

FIREFCT 

Signed  distance  from  point  where  state 
would  cross  E-axis  if  jets  were  fired  now 
to  point  DB^  ^2)  TJETLAW  phase  plane 

FLAT 

.Limits  for  ZONE  1 and  ZONE2  -3  in  TJETLAW 

HH 

Square  of  time  to  get  from  E-axis 
to  switch  curve  in  TJETLAW 

INGTS 

2 -valued  switch.  Set  GTS  attitude  control 
law  was  operating  during  the  previous  cycle 

JETRATE 

Predicted  A rate  in  P-axis  caused  by  jet 
firings 

JETRATEQ(R) 

Predicted  A rate  about  the  Q(R)-axis 
caused  by  jet  firings 

LMKOASN 

Kalman  filter  gain  parameter  {a)  for  LM  alone 

LMOMEGAN 

Kalman  filter  gain  parameter  (w)  for  LM  alone 

LMTRAP 

Trapsize  for  state  estimator:  LM  alone 

NEXTP(U.  V) 

Translation  command  codes  (octal)  for  Y,  Z, 

X translation 

NO.  V(U.  P)JETS 

Number  of  jets  for  V(U,  P)-axis  rotation 

NP(Q,  R)TRAPS 

Number  of  DAP  periods  over  which  error 
has  accumulated  since  last  incorporation; 
time  varying  portion  of  Kalman  filter  gain 

NUMBERT 

Code  word  for  jet  select  logic 

OLDP(QR)MIN 

Flagwords  set  > 0 when  a minimum  impulse 
command  is  sensed  and  cleared  when  no 
commands  are  present 

AGC  Units 

AGC 

Scaling 

sec 

2+5 

rev 

2"^ 

rev 

2”^ 

rev/sec 

CO 

1 

CVJ 

rev/ sec 

rev 

2-5 

rev 

2-5 

2 

sec 

2+5 

2+14 

rev/ sec 

2-5 

rev/ sec 

2-5 

2+14 

2+14 

rev/ sec 

2-5 

2+14 

2+14 

2+14 

2+14 
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AGC  Tag 

Meaning 

AGC  Units 

AGC 

Scaling 

OLDSENSE 

Sign  of  jet  firing  time  computed  on  last 

DAP  pass  for  axis  under  consideration  in 
CSM- docked  control  law 

dsec 

2+14 

OLDX(Y.  Z)FORF 

’Previous  CDUX(Y,  Z)  value 

rev 

2'^ 

OMEGAP(Q,  R) 

Rate  estimate 

rev/sec 

2-3 

P(Q,  R)ERROR 

P(Q,  R)-axis  error 

rev 

2"^ 

P(U.  V)JETCTR 

Docked  jet  inhibition  counters 

dsec 

2+14 

P(Q,  R)LAST 

Rate  requested  by  astronaut  via  hand  con- 
troller on  last  DAP  pass 

rev/sec 

2-3 

POLYTEMP 

Jet  code  policy  used  in  channel  6 or  channel 
5 format  (octal) 

Q(R)ACCDOT 

Rate  of  change  of  the  accelerations  induced 
by  the  thrust  vector  motion 

rev/ sec 

2-8 

Q(R)GIMTIMR 

Gimbal  drive  counters  - 100  msec,  intervals 

dsec 

2+14 

Q(R)RATEDIF 

Rate  error  for  manual  rate  command  mode 

rev/sec 

2-3 

Q(R)-RHCCTR 

Counters  - in  units  of  counts  from 

Rotational  Hand  Controller  (variable) 

2+14 

ROTINDEX 

Index  to  indicate  type  of  maneuver  for 
which  jets  are  to  be  selected 

2+14 

ROTSENSE 

2 -valued  switch  to  determine  direction  of 
rotation  and  to  rescale  time  in  TJETLAW 

csec/ sec 

CO 

+ 

CM 

SAVEHANDj^ 

Temporary  storage  for  RHC  inputs  from 
the  Q and  R axes 

SENSETYP  r 

Set 
to  s 

2— > ascent  burn,  +X  translation,  or  ullage - 
to  fire  only  +X  jets  for  U(V)  axis  attitude 
control  if  possible  . 

1— ♦ -X  translation-  to  fire  only  -X  jets 
for  U(V)  axis  attitude  control  if  possible 
0-*No  preference  for  use  of  +X  or  -X  jets 

SKIPU(V) 

Flags,  cleared  when  U(V)  axis  computations 
are  to  be  skipped  because  a short  jet  firing 
was  calculated  on  the  last  DAP  pass 

- 

2+14 

TCP(Q.  R) 

Manual  control  direct  rate  timers 

dsec 

2+14 

TJP(U.  V) 

Jet  firing  time  for  P(U,  V)-axis 

csec 

2+10 

TRAPEDP  (Q.  R) 

Accumulated  unexplained  rate  error 

rev/ sec 

2-8 
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ERASABLE  LOCATIONS  USED  (cont) 


AGC  Tag 

Meaning 

AGC  Units 

AGC 

Scaling 

TTOAXIS 

Jet  firing  time  to  reach  E-axis  from 
present  state  in  TJETLAW  phase  plane 

sec 

+2 

2 

U(V)RATEDIF 

Attitude  rate  error  in  manual  rate 
command  mode 

rev/ sec 

2-3 

ZONE3LIM 

Border  between  ZONE2  and  ZONE3 
in  TJETLAW 

sec 

2+2 

1/ANET(2) 

Inverse  of  1(2)  jet  net  acceleration 
expected  around  an  axis 

sec  /rev 

2+3 

IJACCQ(R) 

Effective  acceleration  about  the  Q(R)-axis 
caused  by  a single  jet  on  the  U-  or  V-axis 

rev/ sec 

2-3 
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LM  DAP  TRIM 

GIMBAL  CONTROL  SYSTEM 


GTS  Sh.  2 

TIMEGMBL  Sh.  13 

ACDT+C12  Sh.  17 
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'rom  Preceding  Sheet 


JTSGO+ON 


QRCNTR-*-2 


(GOQTRIMC 


The  following  coding  is  done  twice; 
the  first  time,  QRCNTR  = 2,  the 
second  time,  QRCNTR  = 0.  Quan- 
tities selected  by  indexing  with 
QRCNTR  are  notated  as:  KR  (Q). 
This  should  be  read  as  KR  for  the 
first  pass,  and  KQ  for  the  second. 


-AOSR  (Q) 


Multiply  by  bit  2 for 
scaling.  AOSR  (Q) 
rescaled  from  rev/ 
sec^  @ 2 "2  to  rev/ 
sec^  @ 2"3 


Test  high -order  half 


POSMAX 


POSMAX  = 
37777„ 
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Rate  error  in  rev/ 
sec2  @ 2-3  = . 3 x 
ACCDOT  R (Q)  from 
1/ACCS  (FC-3490); 
"jerk  term"  _g 
in  rev/sec^  @2 


Yes 


t 

POSDRIVE  +1 


Set  quotient  = 
POSMAX  = 
377778 
(largest  pos- 
sible positive 
number) 


Next  Sheet 


A2CNTRALjq-*-(ACENTRAL  /2  • KCENTRAL) 


D 


scaled 

@167r 


WCENTRALj^'«— (EDOTR  (Q),  L! 
KCENTRAL*^KR  (Q) 
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K2  CNTRAL^4-K2CNTRAL^  + A2CNTRAL^  A • u)  + 1(2  • K) 


FUNCT3 


A2CNTRAL^4-K2CNTRAL^  - 1/3  (A2CNTRAL)^ 


A2CNTRAL£)  con- 
tains A • 10  + a2  / 

(2  • K)  - 1/3  (q2/2-  K) 
= A • to  + a2/3  • K 


K2THETA^4-  K2THETA^  + (A2CNTRAL  • ACENTRAL)^ 


K • 9e  +9« 

(A  • to  + a‘^/3  • K) 


IGETROOT, 


FUNCTION^4-  (K2CNTRAL)  (KCENTRAU  K-  (A-  w+ff  /(2-K)) 
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NEGUSUM 


Sh.  8 ^ 


(RSTOFGTS 


/ GTSQRT  \ 

' Calculate  N 
square  root  of 
s^FUNCTIONd  / 

\ Sh.  10  7 


Input:  FUNCTION^ 
Output:  A containing 


/function  @ 2 


ININDEX,  SHF TF LAG 


K2CNTRAL^-^  K2CNTRALj^  VF UNCTION 


DOSHIFT 


SHFTFLAG ININDEX/2  + SHFTFLAG 
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GTSQRT 


> + 0 


Good  argument  for 
square  root 


/ Test  \ 
FUNCTION 


[ = 0 Is  argument  good 
» for  square  root? 


.FUNCTION  +1 
\ > 0?  ^ 


A ♦— 

0 

T 

c 

SHF  TF  LAG  4- A 

ININDEX  4-12 

counter  and  scaling  loop. 
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^OOTCYCLX 

Do  one 
Newton 
iteration 

Sh.  13 


{OOTCYCLX 

Do  one 
Newton 
iteration 

Sh.  13 


tOOTCYCLN 

Do  one 
Newton 
iteration 


Sh.  13 


Do  3 iterations  of  a Newton 
square  root  algorithm  of  the 
form: 


A + 
A 


argument 

A 

2 


Final  Output:  A,  containing 
« '^FUNCTION 
scaled  @ 2® 


Return 
via  Q 
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ACDT+C12 


•> 

/ 

QACCDOT<-  -NEGUQ 

RACCDOTf-  -NEGUR 

. ACCDOTQ 

. ACCDOTR 
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CHNL  12  is  temporary  stor- 
age. Bits  not  set  are  0 at 
this  point. 

In  channel  12: 

bit  10  gimbal  drive 

bit  9 ->-Q  gimbal  drive 

Note:  + gimbal  drive  causes 
a - change  in  angular  accel- 
eration, and  vice-versa. 


In  channel  12: 

bit  12-^-»-R  gimbal  drive 

bit  11 ->  -R  gimbal  drive 


Turn  on  gimbal  drives 


Clear  RCSFLAGS,  bit  5,  to  show  that 
gimbal  drive  has  been  done. 
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Zi  CCT(i 


APPR'D-(?.A^Kb.^m.r^ 


SUBROUTINE  CALLED  WHICH  IS 
FLOWED  ON  OTHER  FLOWCHART 


Subroutine 

Name 

Where 

Flowed 

Description 

W here 

Called 

CLOSEOUT 

FC-3470 

Terminates  jask 

Sh.  9 
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AOSJOB  and  AOSTASK 


1/ACCSET 

1/ACCJOB 

1/ACCS 

1/ANET 

D01/NET+ 

DOACCFUN 


Sh.  2 
Sh.  2 
Sh.  2 
Sh.  31 
Sh.  32 
Sh.  32 


Special  Conventions: 


Sign  of  AOSU(V) 


Sign  of  acceleration 


(angular  acceleration  produced  by  U(V)  jets 
produced  by  thrust  of 
main  engine) 


Number 
of  U(V) 
jets 


netpos(  neg)max 


netpos(neg)min 

^netneg(pos)max 


netneg(pos)min 


netposmax 

^netposmin 

^netnegmax 

^netnegmin 


/but  whether  + or 
\not  yet  specified  j 


/but  whether  + or  - 
, not  yet  specified 


4-  or 

(specified) 


+ or 

(specified) 


Notation  for  magnitude  Sign  of  AOSU(V) 
of  "coast"  acceleration 


^coastneg(pos) 


coastpos(neg) 


coastneg 


coastpos 


+ or 

'but  whether 
, not  yet  spec 


+ or 
ified  / 


'but  whether+ or 
, not  yet  specified  / 

+ or 

(specified) 


same  as  sign  of  AOSU(V) 


opposite  from  sign  of 
AOSU(V) 


Sign  of  acceleration 
produced  by  U(V) jets 


same  as  sign  of 
AOSU(V) 


opposite  from  sign  of 
AOSU(V) 
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Do  inertia  computations 
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loop  control) 
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Loop  is  controlled  by  MPAC  + 1 
which  is  decremented  by  1 bit 
after  each  pass. 


Test  index 


Ascent  10,  8,  6 


Test 

MPAC 


4,  2,  0 Descent 


L PVT-CG-.  155044  + ; 


1 taCCR<^ 009812+  ■ 0056946631 

■i  T ^ i£?ooeni  - 0035784354 

CQ  162  ^^■^_mASS+_^  00  2 5 8 8_ 

. 0065443852 
MASS-.  0O6023 


In  descent,  loop  back  a 4tl::j 
■'time  to  compute  L,  PVT-CG 
also  as  a hyperbolic  function 
of  mass.  L,  PVT-CG  is  the 

distance  from 
the  engine  bell 
pivot  (or  hing 
point)  to  the 
vehicle  c.  g. 

L,  PVT-CG  isl 


0410511917 
MASS-.  025233 


MPAC  +1  = - 1, 
so  will  go  to 
LRESC 


in  ft.  @ 2 ■"2. 


UACCR  - 
IJACCQ  - 
IJACC  - 


021345+ 


018791+ 


002989+' 


■ 0010451889 
MASS--  0660271 

■ 0014979264 

MASS-.  068163 
0059347674 


MASS+.  008721 


Jet  acceleration  computed  as  hyper- 
bolic functions  of  mass  (empirical 
curve  fit) 


UACCR:  Pass  1 
IJACCQ:  Pass  2 
IJACC:  Pass  3 


1 jet  acceleration  rad 
in  the  R axis  se^ 
1 jet  acceleration  rad 
in  the  Q axis  sec^ 
1 jet  acceleration  rad 
in  the  P axis  sec2 


at 


at 


at 


1T_ 

4 

TT 

T 

TT 

T 
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Ils  =.20096XY+.13  564+  (-.3^14  ^+ . ^ 79)X+  (.75  704Y  - . 6 3 1 1 7 ) Y 

MPAC<^|:OEFF  +6j  (LEMMASS  CSMMASS)+  gOEFF  +7J+I 
( [COEFF  +9]  CSMMASS  + [COEFF  +11  ] ) CSMMASS  + 

( [COEFF  +8]  LEMMASS  + [COEFF  +10]  ) LEMMASS 


SECOND  PASS.  Loop  1 

L 6 : L is  distance  frqm 
gimbal  pivot  to  c.g.  and  S is  gimbal 
drive  rate  (.  2°/sec) 

(Loop  1 Pass  2)  T f • j 

(Loop  2 Pass  3)  MPAC=L  6 in  radx 

(Loop  2 Pass  4)  ^rr 


i 

DVOVSUB 


Divide 
IJACCCON 
by  MASS 


Sh.  33 


IJACC  - 

IJACCCON 

MASS 

Next  Sheet 


Input:  A - IJACCCON  ( = 00167o) 
L <-  0 ® 


Output: 

A - quotient 


remainder 


IJACCCON' 
MASS 


or 

POSMAX 

or 

NEGMAX 


1 jet  acceleration  in 

p 

P - axis  in  rad/ sec  @ ^ 
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LOOP  3 


First  time  - R axis;  second  time  - Q axis 


No,  so  drive  must 
be  - 


Is  bit  11  / No,  no  R (Q) 

\or  12  of  / gimbal  drive 

Ch.-  / 


Yes,  R(Q)  - axis  drive 

— 7 

Is  bit  12  of  / Yes,  drive  is  + 

Ch.  12  / 

\ = 1 ? / , 


R(Q)  axis  gimbal  drive  is 
considered  to  be  positive 
if  the  engine  bell  is  rotating 
in  a positive  direction  with 
respect  to  the  spacecraft 
Z(Y)  axis. 

Under  this  convention,  posi- 
tive gimbal  drive  results  in 
negative  change  in  accelera- 
tion and  vice-versa. 


i’RSTZERf 


ZACCDOT) 


I ' ^ 

if if 

R(Q)ACCDO'fe-+ACCDOTR(Q)  R(Q)ACCDO'P=- -ACCDOTR(Q)  R(Q)ACCDOTe^  0 | 

t — - — _ — — i .73 


Yes,  go  thru  once 
more  / 


First  ^ 
time  thru 
\ l,OOP3 / 


No,  computations  have  been 
done  for  both  axes 


STACCDOT 
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Is 


Yes,  use  jets  this  time.  Gimbal 


From  Preceding  Sheet 


Inhibit 

Inter- 

rupts 


AOSR 

- AOSQ  @ 

via  IBNKCALL 


@ ’r/2 
@ Jr/2 


/ROT-TOUV^ 
Convert  to' 
U,  V axes 

V FC-3470 


Output  : A = (-COEFFQ)  (A)t-(COEFFR)  (L) 
L - (+COEFFQ)  (A)+(COEFFR)  (L) 


AOSU< 

AOSV> 


@ '’r/2 

@ V2 


Allow 

Inter- 

rupts 


Yes,  drifting 


DRIFTDFL 

V = 1 ? 


DRIFTER  1 
FLATEMP^— .8° 

Z3TEMfe-.0175i 


Powered  flight  ; 
no  GTS 


DRIFTER*^  0 
FLA  TEMP  (—0 


ALLOWGTS 
\ >0  ? / 


Yes,  powered  flight  with  GTS 


DRIFTER 


FLATEMP  " 
Z8TEM  <- 


0 Save  DRIFTDFL  value  in 
DRIFTER  so  don't  have 
Q to  test  again 
8 Width  of  deadzone  flat 
in  deg.  @ 45° 

0 I Height  of  ZONES  limit 
X ^net  neg  in  sec. 
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Temporary  storage.  IJACC  scaled  @ 7r/4. 
IJACC  @ TT  /4  = 2 X IJACC  ^ IT  12. 


2 X IJACC  “ angular  acceleration  produced  by 
two  P-axis  jets  = ANETP.  Therefore  IJACC 
@ TT  /4  = ANETP  @ TT  /2. 

1/ACOSTP  @ 2^^  I TT  = POSMAX 

(IJACC  @ TT  / 4 = ANETP  @ tt  / 2 


@ 2' 


_ ANETP 
ACOSTP 
Bit  9 = 1 @ 2® 
Therefore:  FUNTEM  = 


/ANETP 
' ACOSTP 


+ 1 


)@ 


Reciprocal  of  net  acceleration  in  the  P-axis  „ 
(Subroutine  INVERT  (Sh.  34)  used  to  scale  to  2 I tt). 
Functions  computed  here  apply  to  either  positive 
or  negative  P-axis  rotation,  since  offset 
acceleration  is  assumed  0 for  P-axis. 


PACCFUN  = 


(anetp 




ANETP^~\ 

ACOASTP/ 


@ 


TT 


ACOSTP  represents  a "coasting"  acceleration: 
the  P-axis  angular  acceleration  which  exists 
when  no  P-axis  jets  are  firing.  This  acceleration 
is  assumed  to  be  0. 

1/.  03  is  the  tag  name  for  1/.  02454,  the  smallest 
value  which  can  be  assigned  to  ACOSTP  so  that 
its  reciprocal  @ 2"^  I tt  will  not  overflow. 

(Hence,  1 /ACOSTP  = POSMAX). 
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From  Preceding  Sheet 


AOSU 

= 

0 

AOSV 

= 

0 

Make  sure  angular  offset  is  set  to 
zero  in  U and  V axes  in  drifting 
flight. 


UAXIS  ^ 


) 

/ 

UV<:—  0 

1 

' 

The  following  section  of  coding  is  executed  twice.  The 
first  time,  UV  = 0,  the  second  time,  UV=1.  In  this  flow 
chart,  a symbol  of  the  form  AOSU(V)  is  to  be  read  as 
AOSU  the  first  pass,  and  AOSV  the  second.  In  practice, 
the  variable  UV  is  used  as  an  index  to  select  between 
the  two  locations,  which  are  adjacent  in  memory. 


SIGNAOS-^ 


Index  to  select  jet  parameters  - when 
parameter  for  negative  AOS  is  located 
below  the  corresponding  parameter 
for  positive  AOS. 


A second  index  for  cases  where  parameter  for 
negative  AOS  is  located  above  the  corresponding 
parameter  for  positive  AOS. 


DBB2 


-(AOSU(V)| 

DBVALl 

-DBVAL.l 


! Absolute  value  of  angular  offset  acceleration  in 
rad/sec2  (S  TT /2.  ^ ^ 

g DB'  1°  powered  flight;  . 3 , 1 , or 

5°  for  drifting  flight.  |Set  nominal  DB^  and  DB2 
J points  here;  change  later  if  needed.  DB  in  rad. 

@ TT  / 4. 


Note; 


Next'feheet 


The  location  -.03R/S2  contains 
- y/2 ^/2  ( -.  02454  rad/sec2  ). 
The  location  1/.  03  (used  on  Sh.  16) 
contains  2^  ! w Sec2/rad  @ 2^  j u 
or  1/.  02454  sec^/rad. 
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From  Preceding  Sheet 


FLATEMP 
\ >0  ? ^ 


Have  to  compute  offset  deadbands  only 
when  in  powered  flight,  no  GTS  control 


(AOSU(V)  s-0)  (AOSU(V)  s +0) 

+1  +0 
— SIGNAOS  1 


DBBl<r-DBBl+  DBVALl  j 2 DbI  in  rad  | dBB2<^DBB2  + DBVALl  2 DB-1  in  rad 

DBB34-DBB1  I 2 DBf  @ tt  / 4 | DBB4«-DBB2  2DB/@7r/4 


1875  X ^ rad /sec  @ tt  / 2 in  location  - . 1875 


^ ABSAOS  2 >^No_ 

187  5 X ■-  rad/sepX^ 


A - (l-2'^-  ABSAOS)  DB  in  rad 
I <S  TT  I 4 


* 5 DB 

A *-  - DBVALS  iti  rad  @ tt  /4 

( DBONE  


(AOSU(V)  ^ -0) 
+ 1 


SIGNAOS 

■? 


(AOSU{V)a  +0) 
+ 0 


DBB2  - A 

-.  5 DB  'I 

• in  rad 

DBBl  - A 

DBB4  - DBVAL2 

75  DBJ 

@ TT  / 4 

DBB3  - DBVAL2 

5 DB  A in  rad 
75  DB/®  tt  /4 


Next  Sheet 


MIT  INSTRUMENTATION  LAB 
CAMBRIDGE.  MASS. 


APOLLO  GUIDANCE  AND  NAVIGATION 


AOSJOB  and  AOSTASK 


LUMINARY  ID 


REV  1 ISHEET  18  OF  3 6 


From  Preceding  Sheet 


coastneg 

coastpos 


r 

-2(1JACCU)+  ABSAO&4-  2~ 


2^ 

1 /a  , at  * 

' coastpos 

l/a  at  2' 

' coastneg  it 


2 ^ represents 

@ IT  1 2. 


7 2 

- / 2 rad/ sec 


Yes, rescale 


ANET 


No  overflow,  do  normal  calculation 


SKIPDB2 

. Sh. 30  ^ 

ABSAOS  + IJACCU 


A - 


1 


ANET 


1/ANET 


2 ^A 


-7 


ANET  - 2 +ANET 


Calculate  parameters  for  2 jets: 

+ jets  if  AOS  s + O;  - jets  if  AOS 

s - 0. 

ANET  rescaled  to  tt  . 

ANET  = 2'^  a ^ , (g  tt  /2 

netpos(neg)  max 

^netpos(neg)max  ^ ^ 

Take  inverse  of  ANET  and  increase 
scaling  by  2®  via  INVERT  (Sh.  34). 

1/ANET  = ^ @ 27/, 


netpos(  neg)max 


ANET  = TT  / 2 + a 


netpos(  neg)max 


@ 


Next  Sheet 


_ netpos(neg)max  q ^1 
^coastneglpos) 

(This  equation  is  true  because 

@ 2’^/7r  = POSMAX.) 

coastneg(pos) 

Note:  ANET  is  used  in  this  last  equation 
for  temporary  storage  (for  input  to 
subroutine  DOACCFUN)  and  does  not 


netpos(  neg)max 


(see  above). 
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A 


ARET  - ADR(ACCHERE) 

Z3 


-2 


-7 


lACCFUN^ 
Compute 
function 
of  ANET 

Sh.  32 


Set  up  return  for  ACCHERE  at  completion  of 
DOACCFUN 

7 - 7 

-1  @ 2 = -2 

Input:  1/ANET@2’^/^ 

A containing  - 1 @ 2 

ANET  @ 2^ 

Output:  A containing  @ 


(^ACCHERE^ 


(^ACCTHERE^ 


(AOSU(V)  ^ -0) 
-1 


(AOSU(V)  s +0) 
0 


Z5TEM  + 1 = 


Z5TEM  + 2 


netnegr 


netnegmax  a 

^ coastpos  -7 

-1  0 ^ 

72 ~ 

netposmax 


Z5TEM  +1«:A 

Z5TEM  +2^A 

1/ATEM2  +k-]/ANET 

1/ATEM2  +2<-]/ANEr 

1/ATEM2+1  = 


netposmax  a ^ 

^ coastneg 

,7 


1 


netnegmax 

1 


TT 


@1- 


^ 

1 

. ^ 

4 J 

A^lJACCU+ABSAOS+  2’*"  | 

No 


Yes 


1/ATEM2  + 2 =; 

‘‘netposmax  ^ 

Note:  Z5TEM+1  = ZlTEM+2 

l/ATEM+1  = l/ATEMl  + 2 
Calculate  parameters  for  1 jet:+jets  if 
AOS  a + 0;  - jets  if  AOS  s -0. 

Check  for  overflow  in„minimum  (1-jet) 
case  also.  2"  6 = jr  / 2"  rad  / sec2  (a  tt  / 2. 

If  overflow,  set  ANET  to  maximum 
value  which  will  not  overflow. 


1 

1 

J 

1 

1 

ANET.«^1JACCU+  ABSAOS 

ANETs-POSMAX  - 2‘® 

: - ^ , . . _ . . 

i 

wr 

Next  Sheet 
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From  Preceding  Sheet 
/DO  1/NET  + 


Compute 
functions  of 
^NET 


(AOSU(V)  ^ s +0) 


ZlTEM-<— A 
1/ ATEMKr— 1/ ANET 


A*-2(  lJACCU)'ABSAOS 


or 


Input:  ANET  = a , , \ ■ r'  /n 

netpos(neg)min  @ tt  12, 

3. 

= netpos(neg)min  (g  2® 


^coastneg(pos) 


Output:  1/ANET  

netpos(neg)min 

^ _ -1  /ANET  ^ 


■@  2/ 


TT 


Z5TEM  — 

—A 

1/ATEM2< — 

— 1/ANET 

ANET  2 

a , , \ • , netpos(neg)min 

netpos(neg)min  + 1 — bi 

coastneg(pos) 

-1  2"^ 

5 

TT 


ZlTEM  = 


a , . , netnegmin 

ne  tne  gm  in  h ° 


Z5TEM  = 


-1 


coastpos 


a , netposmin 

netposmin  + 

coastneg 


2^ 

@ ^ 

TT 


l/ATEMl  = 


1/ATEM2 


1 


netnegmin 


2^ 

@ — 
TT 


@ 


‘^netposmin 

Calculate  parameters  for  2 jets:  -jets  if 
AOS  B+0;+jets  if  AOS  jets  if  AOS  s-o. 


g/ANET  - 

Compute 
functions  of 
ANET 
Sh.  31 


A = a , , . @ TT  I2 

netneg(pos)max 


Input:  A=a  , , v @ it  1 2 

^ netneg(pos)max 


Output:  1/ANET  = 


A - -1/ANET  ^ 
ANET 


1 


netneg(pos)max 
- 1 


@ 2'^  / TT 


@ 2^  ! IT 


Next  Sheet 


a . , > netneg(pos)max 

netnegl  pos  )max  4 

^coastpos(neg) 

ACCSW  = 0 for  now;  see  next  sheet. 
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From  Preceding  Sheet 


7.iTF:ft/r  + s = 


(AOSU(V)  a +0) 


ZITEM  +3  <— A 
Lf-A 

[ l^ATEMl  +3  ^1/ANElj 


t 

ZITEM  + 2 

<^A 

L-6 — A 

1/ATEM1+  2-t-l/ANET 

1 

ZITEM  + 2 = 


a 

a . , netposmax 

netposmax  + £- 

coastnes  7 

^ 


a _ , ^ -1-"  netnegmax 


Note: 

Za.TEM+3  = Z5TEM+2 
l/ATEMl  + 3 


netnegmax ' 


coastpos 
May  need  below;  save  in  L. 


1/ATEMl  +3 


1/ATEMl  + 2 = 


netposmax 
1 


netnegmax 

Calculate  parameters  for  1 jet: 
jets  if  AOS  2+0;+jets  if  AOS  £ -0. 


w X jcto  11  ‘2+U!+i6t£ 

1/ATEM2+2  ANET^ JACCU- ABSAOS  ht-  • + . , 

_|  Min-jet  net  acceleration; 

'' 


Bypass  minimum 
ANET  computation 


ANET  = a ^ @ TT  /2 

netneg(pos)min 


Is  ANET  too  small  to  compute 
l/ANET®  2'^ /it  without  overflow? 


(AOSU(V)  s +0) 
\ 0 


3 

N 

i 

I 

r 

ACCSW- 

piJ 

Set  tag  to  indicate  small  net 
acceleration,  so  that  TJETLAW 
will  use  maxjets  (i,  e.  2 jets) 
for  AOS  neg,'  ACCSW  = + 1 
for  AOS  pos,  ACCSW  = - 1 


Next  Sheet 
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±1  rom  Preceding  bneet 


Check  for 
-U(-V)  failures 


Check  for 
+U(+V)  failures 


I bits  7,  4 (bits  5,  2) 
CH5MASK 


i 

i 

1 

A -.»•  ! 

A ; 

bits  8,  3 (bits  6,  1) 

CH5MASK 

CH5MASK  is  maintained  by  RCS 
failure  monitor.  Its  bits  are  given 
the  same  jet  assignments  as  the 
bits  in  channel  5.  A bit  in  CH5MASK 
which  is  set  indicates  that  the 
corresponding  jet  has  been  failed. 


Yes,  no  failures 


ANET  = I ANET<r-:0245  rad/sec^ 
^netneg(pos)min 

-^rad/  sec^  @ tt  /2 
2 


L = 


ISTMIN-  -1, 


'^1/NETMIN 
Compute 
functions'  of 
ANET 


Sh.  31 


If  no  failures,  use  max -jet 
(i.  e.  2-jet)  parameters  for 
this  case.  If  failures,  set 
ANET  to  minimum  and 
recompute. 

— o @2! 

TT 


Vetneg(  pos  )max 

coastpos(neg) 


Next  Sheet 


Input:  ANET  = a , , ^ @ ^ 12. 

netneg(pos)min  ' 

Output:  1/ANET  =. a.t2^  In 


A 


-1/ANET 

ANET 


at  2 

“netneg(pos)min 
- 1 


2^ 

@ — 
IT 


netneg(pos)min+; 


netneg(pos)min 
^coastpos(neg) 
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From  Preceding  Sheet 


Next  Sheet 
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From  Preceding  Sheet 


Note: 

ZONE3LIM  = FLAT  + 1 
Z3TEM  = FLATEMP+1 


Store  P-axis  dead- 
DBl  bands  (deadbands  are 
Qg2  always  set  as  if  in 
DB3  drifting  flight,  since 
the  P-axis  angular 
offset  acceleration 
is  assumed  to  be  zero) 


Next  Sheet 

The  above  quantities  are 
stored  in  temporary  locations 
and  will  be  stored  in  new 
locations  after  loop  through 
V-axis  is  completed. 
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ANETv^  ABSAOS  + 2 • IJACCU  ANET  = anetpos(neg)max  ® ^ 


(CL1/NET  + 


/ D01/NET+  \ ANET  - a 

Compute  \ 
functions  of  ) 


(S  JL  =.  netpos(neg)max 


netpos(neg)max  2 ^ 


Sh.  32 


Output:  1/ANET  = 
1/ANET 


netpos(neg)max 


@ 2^  ! TT 


DOCUMENT  NO. 

FC-3490 
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ACCSW- 


ANET- 


Save  input  = a^etneg(pos)max  @ ^ 


C-.02454: 


Is  A ^ 

.c-.rad 


^NETNEG^ 

' 

! 

ANET<— - 

(-.  03R/S2) 

03R/S2)=  7r/2'  @ it  l2 
(tt  /2^  = . 02454  rad/sec^) 


[l/NETMIN 


(AOSU(V)  s -0) 
-1 


) 

A-*-  ANET  (I/ACOSTT) 

1 

Next  Sheet 


(AOSU(V)  a +0) 

\+0 


A<-  ANET  (1/ACOSTT  +1)  j ANET  (1/ACOSTT+l) 

I 


netnegmax  @ 
^coastpos 

^netnegmln  ^ ^6 


ANET  (1/ACOSTT)  = 


netposmax  @ ^6 
*^coastneg 

^netposmin  ^ 


coastpos 


coastneg 
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From  Preceding  Sheet 


^DOl/NET-^ 


Save 

return 

linAREl 


Save  Q so  that  subroutine  INVERT  (Sh.  34)  can 
be  called  to  compute  1/ANET  in  the  following 
computation 


]/ANET<e 


1 


ANET 


ANET<r— 1 + A 


Reciprocal  calculated  by  subroutine 
INVERT  which  scales  the  result  at 

@ 2®  ; ANET  location  used  here  for 
temporary  storage. 


-1  @ 2°  = 
Input: 


,-6 


1/ANET  @ 2'  Iw 
A containing  ’ 
Output: 

A containing 


1 @ 2" 

1/ANET 

ANET 


@ ^ Iv 
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SCRATCHX-S A 

A« divisor 


Save  upper  half  of  dividend 
Divisor 


- 1 Return 


(Q  +1) 


Address 


Is  divisor  = 0 ? 


Yes,  cannot  divide  by  0 


A = 0 


SCRATCHZ< A Divisor  in  SCRATCHZ 


MAXPLUS  Set  quotient 
= POSMAX 

s,.  Sh.  34 


(GOODNEG 


No,  cannot  divide  ^ divisor> 

dividend 


Yes,  divide 


Next  Sheet 


SCRATCHX  A. 


quotient 

remainder 


Return 
via  Q 
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NEGMAX  = 
40000g 

(as  close  to 
-1  as  can  get) 


From  Preceding  Sheet 


POSMAX  = 
37777g 

(as  close  to 
+1  as  can  get) 


Input : A @ TT  /2 


1@  26  7 

Result#— 


Output  : 


(i,  e.  inverse  of  input) 
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SUBROUTINES  CALLED  WHICH  ARE  FLOWED  CN  OTHER  FLOWCHARTS 


1 

Subroutine  Name 

Where  Flowed 

Description 

ROT-TOUV 

FC-3470 

Convert  to  U-,  V-  axes 

TIMEGMBL 

FC-3480 

Gimbal  drive 

Where  Called 


5 


Sh.  14 
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FLAGS 


APSFLAG 

! Flag  10 
bit  13 


Flag  13 
bit  8 


Meaning  When  Set 

Meaning  When  Clear 

Control  authority  values 
from  1/ACCS  usable 

Restart  or  Fresh 

Start  since  last  1/ACCS; 
outputs  suspect 

1 

Ascent  stage 

Descent  stage 

CSM  docked 

CSM  not  docked  to  LM 

Assume  0 offset  drifting 
flight 

Use  offset  acceler  - 
ation  estimate 

Gimbal  unusable.  Use 
jets  only. 

Trim  gimbal  may 
be  used. 

e Where  Where 
Cleared  Tested 


Sh.  28 


Sh.  3 


Sh.  14 
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DOCUMENT  NO. 
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REV  1 


INDEX 


INDEX 


Major  entries 

Each  major  entry  is  followed  by  (1)  the  number  and  name 
of  the  flowchart  in  which  it  is  flowed,  (2)  the  word  ENTRY, 
and  (3)  the  sheet  on  which  the  entry  begins. 

Example:  KEYRUPTl  FC-3110  Keyrupt  and  Uprupt  ENTRY  4 

This  means  that  KEYRUPTl  is  flowed  in  FC-3110,  Keyrupt 
and  Uprupt,  starting  on  sheet  4, 

Subroutines 

The  name  of  each  subroutine  called  in  one  flowchart  and 
flowed  in  another  is  followed  by  (1)  the  number  and  name 
of  the  flowchart  in  which  it  is  called,  (2)  the  word  CALLED, 
and  (3)  the  sheet(s)  on  which  it  is  called. 

Example:  AXISGEN  FC-3520  P57  CALLED  35,  40 

This  means  that  AXISGEN  is  a subroutine  called  on  sheets 
35  and  40  of  FC-3520,  P57,  and  flowed  in  some  other 
flowchart. 

Flag  bits 

The  name  of  each  flag  bit  is  followed  by  the  number  and 
name  of  the  flowchart  in  which  the  flag  is  set,  cleared, 
or  tested.  The  letters  S,  C,  and  T and  the  numbers 
following  them  indicate  on  which  sheet(s)  the  flag  is 
set,  cleared,  or  tested. 

Example:  AVFLAG  FC-3720  P32/P72  (CSI)  S-2  C-2 

This  means  that  AVFLAG  is  set  on  sheet  2 and  cleared 
on  sheet  2 of  FC-3720,  P32/P72  (CSI). 


13-1 


«NBSM=!‘ 

FC-3320 

ENTRY 

11 

*NBSM* 

FC-3520 

CALLED 

12,39 

*NBSM« 

FC-3600 

CALLED 

42 

*NBSM* 

FC-3900 

CALLED 

31 

A 

«SMNB* 

FC-3320 

ENTRY 

11 

w 

=S'SMNB* 

FC-3435 

CALLED 

5 

*SMNB* 

FC-3520 

CALLED 

20 

«SMNB* 

FC-3600 

CALLED 

35,41 

*SMNB* 

FC-3960 

CALLED 

7 

ABTKLEAN 

FC-3010 

CALLED 

5 

ABTKLEAN 

FC-3970 

CALLED 

5 

ABTTGFLG 

FC-3970 

S-10 

ACCOKFLG 

FC-34A0 

T-13 

ACCOKFLG 

FC-3490 

S-28 

ACCOMP 

FC-3355 

ENTRY 

10 

ACC4-2FL 

FC-3440 

T-6 

ACCA-2FL 

FC-3470 

T-48 

ACCA-2FL 

FC-3950 

S-3 

ACC4-2FL 

FC-3970 

S-6 

ACDT+C12 

FC-3470 

CALLED 

3 

ACDT+C12 

FC-34aO 

ENTRY 

17 

ACMODFLG 

FC-3600 

S-17 

C-15 

T-18 

ACTIVE 

FC-3720 

CALLED 

17 

ACTIVE 

FC-3730 

CALLED 

2 

ACTIVE 

FC-3740 

CALLED 

15 

ADVANCE 

FC-3720 

ENTRY 

10 

ADVANCE 

FC-3730 

CALLED 

2 

AGSINI T 

FC-3250 

ENTRY 

2 

ALARM 

FC-3010 

CALLED 

19 

ALARM 

FC-3140 

ENTRY 

4 

A 

ALARM 

FC-3210 

CALLED 

12,29,36,37,50,51,52 

w 

ALARM 

FC-3220 

CALLED 

2,3,13,20 

ALARM 

FC-3310 

CALLED 

7 

ALARM 

FC-3355 

CALLED 

38 

ALARM 

FC-3470 

CALLED 

23,49,74,78 

ALARM 

FC-3510 

CALLED 

24 

ALARM 

FC-3520 

CALLED 

8,28 

ALARM 

FC-3530 

CALLED 

10, 19,20,22,25,30 

ALARM 

FC-3600 

CALLED 

33,52,64 

ALARM 

FC-3730 

CALLED 

3 

ALARM 

FC-3800 

CALLED 

2 

ALARM 

FC-3810 

CALLED 

9 

ALARM 

FC-3900 

CALLED 

12,19,26 

ALARM 

FC-3935 

CALLED 

5,11 

ALARM 

FC-3960 

CALLED 

13,22 

ALARMl 

FC-3140 

ENTRY 

8 

ALARM2 

FC-3140 

ENTRY 

4 

ALINTIME 

FC-3240 

ENTRY 

2 

ALLCOAST 

FC-3010 

CALLED 

28 

ALLCOAST 

FC-3440 

ENTRY 

17 

ALLCOAST 

FC-3840 

CALLED 

17,23 

ALM/END 

FC-3100 

ENTRY 

2 

ALM/END 

FC-3400 

CALLED 

2 

ALM/END 

FC-3435 

CALLED 

2 

ALM/END 

FC-3780 

CALLED 

2 

ALM/END 

FC-3790 

CALLED 

2 

9 

ALSIGNAG 

FC-3250 

CALLED 

4 

l_  ^ i IjIM  aG 

FC-3935 

CALLED 

18 

ANTENFLG 

FC-3600 

T-29, 30,41 

,45,46 

ANTENFLG 

FC-3980 

T-2 

AORBSFLG 

FC-3A70 

S-42 

C-42 

T-31,39 

AORBTFLG 

FC-3470 

T-48,58 

AOTMARK 

FC-3500 

CALLED 

5 

AOTMARK 

FC-3510 

CALLED 

25 

AOTMARK 

FC-3520 

CALLED 

31 

AOTMARK 

FC-3530 

ENTRY 

2 

AOTSTALL 

FC-3220 

ENTRY 

35 

AOTSTALL 

FC-3500 

CALLED 

5 

AOTSTALL 

FC-3520 

CALLED 

31 

A-PCHK 

FC-3355 

ENTRY 

39 

APSESW 

FC-3360 

S-25 

C-25 

APSFLAG 

FC-3440 

S-5 

C-5 

T-2, 9, 11 

APSFLAG 

FC-3470 

T-47,63 

APSFLAG 

FC-3490 

T-3 

APSFLAG 

FC-3840 

T-11 

APSFLAG 

FC-3850 

T-9, 12 

APSFLAG 

FC-3910 

S-2 

APSFLAG 

FC-3970 

S-3 

APSIDES 

FC-3360 

ENTRY 

39 

APSIDES 

FC-3760 

CALLED 

13 

ARCTRGSP 

FC-3960 

ENTRY 

33 

ARCTRIG 

FC-3310 

ENTRY 

4 

ARCTRIG 

FC-3600 

CALLED 

8,37 

ASCENT 

FC-3950 

ENTRY 

15 

ASTNFLAG 

FC-3840 

S-6t 16 

C-7,9 

T-8 

ATMAG 

FC-3950 

ENTRY 

12 

ATOPCSM 

FC-3350 

ENTRY 

7 

ATOPCSM 

FC-3355 

CALLED 

34,39 

ATOPCSM 

FC-3600 

CALLED 

14 

ATOPLEM 

FC-3350 

ENTRY 

9 

ATOPLEM 

FC-3355 

CALLED 

34,39 

ATOPOTH 

FC-3640 

CALLED 

6 

ATTACHED 

FC-3605 

ENTRY 

2 

ATTFLAG 

FC-3520 

S-47 

T-6,7,9 

AUTMANSW 

FC-3420 

C-2 

AUTOMODE 

FC-3600 

T-47,71 

AUTOMODE 

FC-3980 

T-11 

AUTRIFLG 

FC-3440 

T-7 

AUTR2FLG 

FC-3440 

T-7 

AUXFLAG 

FC-3850 

S-12 

C-11 

T-12 

AVEGFLAG 

FC-3210 

T-14 

AVEGFLAG 

FC-3760 

T-6 

AVEGFLAG 

FC-3770 

T-3 

AVEGFLAG 

FC-3850 

S-2 

T-4 

AVEGFLAG 

FC-3930 

T-2 

AVEGFLAG 

FC-3935 

-4 

AVEGFLAG 

FC-3970 

T-15 

AVEMI DSW 

FC-3350 

S-23 

T-29 

AVEMIDSW 

FC-3355 

n 

1 

o 

AVESTAR 

FC-3530 

ENTRY 

1 1 

AVETOMI D 

FC-3350 

ENTRY 

23 

AVETOMID 

FC-3850 

CALLED 

14 

AVFLAG 

FC-3720 

S-2 

C-2 

AVFLAG 

FC-3730 

S-1 

C-1 
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AVFLAG 

EC-3740 

S-2 

AVFLAG 

EC-3760 

AVFLAG 

FC-3810 

S-13 

AVFLAG 

FC-3820 

S-2 

AVFLAGA 

FC-3720 

ENTRY 

2 

AVFLAGA 

FC-3750 

CALLED 

2 

AVFLAGP 

FC-3720 

ENTRY 

2 

AVFLAGP 

FC-3750 

CALLED 

2 

AXISGEN 

FC-3310 

ENTRY 

8 

AXISGEN 

FC-3500 

CALLED 

8 

AXISGEN 

FC-3510 

CALLED 

28 

AXISGEN 

FC-3520 

CALLED 

35,40 

AX*SR*T 

FC-3320 

ENTRY 

12 

AX*SR*T 

FC-3980 

CALLED 

7 

BADEND 

FC-3220 

ENTRY 

34 

BAILOUT 

FC-3140 

ENTRY 

5 

BAILOUT 

FC-3470 

CALLED 

2 

BAILOUTl 

FC-3040 

CALLED 

22 

BAILOUTl 

FC-3140 

ENTRY 

7 

BAILOUTl 

FC-3220 

CALLED 

35 

BAILOUTl 

FC-3530 

CALLED 

2,3 

BALLANGS 

FC-3400 

CALLED 

4 

BALLANGS 

FC-3420 

ENTRY 

9 

BALLANGS 

FC-3600 

CALLED 

25 

BANKCALL 

FC-3060 

ENTRY 

2 

BANKJUMP 

FC-3060 

ENTRY 

3 

BEGDES 

FC-3210 

CALLED 

24 

BEGDES 

FC-3600 

ENTRY 

39 

BLANKET 

FC-3435 

CALLED 

7 

BLANKET 

FC-3440 

CALLED 

4,8,1 

BLANKET 

FC-3600 

CALLED 

7 

BLANKET 

FC-3740 

CALLED 

24 

BRANCH 

FC-3935 

CALLED 

17,23 

BURNBABY 

FC-3840 

ENTRY 

2 

BURNBABY 

FC-3950 

CALLED 

11 

B50FF 

FC-3050 

ENTRY 

10 

CA+ECE 

FC-3210 

CALLED 

54 

CAGESUB 

FC-3210 

ENTRY 

56 

CAGESUBl 

FC-3210 

ENTRY 

56 

CAGESUB2 

FC-3210 

ENTRY 

56 

CAGETEST 

FC-3220 

ENTRY 

37 

CAGETSTJ 

FC-3220 

ENTRY 

37 

CAGETSTO 

FC-3220 

ENTRY 

37 

CA+ECE 

FC-3220 

ENTRY 

14 

CALCGA 

FC-3310 

ENTRY 

5 

CALCGA 

FC-3510 

CALLED 

18 

CALCGA 

FC-3520 

CALLED 

13,37 

CALCGRAV 

FC-3850 

ENTRY 

18 

CALCGTA 

FC-3310 

ENTRY 

2 

CALCGTA 

FC-3510 

CALLED 

19,48 

CALCGTA 

FC-3520 

CALLED 

35,40 

CALCMAN2 

FC-3430 

S-9 

CALCMAN3 

FC-3430 

S-9 

CALCN83 

FC-3830 

ENTRY 

5 

CALCN85 

FC-3810 

ENTRY 

5 

CALCPERR 

FC-3440 

CALLED 

23 

CALCRVG 

FC-3850 

ENTRY 

18 

C-2 


C-10 


T-15 


T-10 


“I  O A 


CALCSMC  FC-3320 
CALCSMSC  FC-3510 
CALCSMSC  FC-3520 
CALCTFF  FC-3370 

•CALCTFF  FC-3770 
CALCTPER  FC-3370 
CALCTPER  FC-3770 
CCSHOLE  FC-3140 
CCSHOLE  FC-3440 
CDESFLAG  FC-3600 
CDHMVR  FC-3720 
CDHMVR  FC-3730 
CDRVE  FC-3210 
CD«TR=«^G  FC-3320 
CD*TR=^G  FC-3420 
CD«TR*GS  FC-3320 
CDUINC  FC-3150 
CDULOGIC  FC-3150 
CDULOGIC  FC-3320 
CDULOGIC  FC-3430 
CDULOGIC  FC-3530 
CDULOGIC  FC-3600 
CDU^NBSM  FC-3320 
CDU^NBSM  FC-3780 
CDU^SMNB  FC-3320 
CDU^SMNB  FC-3520 
CDU«SMNB  FC-3600 
CDU=«=SMNB  FC-3810 
CDU^SMNB  FC-3810 
CDU^SMNB  FC-3910 

•CDUTODCM  FC-3A20 
CDUTODCM  FC-3430 
CDUTRIG  FC-3320 
CDUTRIG  FC-3435 
CDUTRIG  FC-3510 
CDUTRIG  FC-3520 
CDUTRIG  FC-3600 
CDUTRIGS  FC-3320 
CHANGEVB  FC-3530 
CHANGl  FC-3100 
CHANGl  FC-3935 
CHARIN  FC-3110 
CHECKMM  FC-3840 
CHECKMM  FC-3970 
CHEKBITS  FC-3320 
CHEKBITS  FC-34A0 
CHKLINUS  FC-3420 
CHKPOOH  FC-3100 
CHKPOOH  FC-3400 
CHKPOOH  FC-3410 
CHKSDATA  FC-3500 
CHKSDATA  FC-3510 
CHKVISFZ  FC-3470 
CKMI02  FC-3355 
CLEANDSP  FC-3840 

•CLOKTASK  FC-3720 
CLOSEOUT  FC-3480 


ENTRY  16 

CALLED  17t34 

CALLED  21t23»37,40,46 

ENTRY  5 

CALLED  20 

ENTRY  5 

CALLED  19 

ENTRY  5 

CALLED  29 

S-51»85  C-2»3»33»49  T-39,46 

CALLED  17 

ENTRY  5 

ENTRY  4 

ENTRY  2 

CALLED  9 

ENTRY  2 

ENTRY  9 

ENTRY  3 

CALLED  3 

CALLED  21 

CALLED  15t16,31,32 

CALLED  41»53 

ENTRY  10 

CALLED  8 

ENTRY  9 

CALLED  26 

CALLED  25 

CALLED  5 

CALLED  6 

CALLED  3 

CALLED  6 

ENTRY  21 

ENTRY  2 

CALLED  4 

CALLED  17,34 

CALLED  20,21,23,37,40,46  6,46 

CALLED  35,40 

ENTRY  2 

ENTRY  28 

CALLED  3 

CALLED  20 

CALLED  10 

CALLED  4,8 

CALLED  6 

CALLED  2 

ENTRY  20 

ENTRY  10 

ENTRY  2 

CALLED  2 

CALLED  2 

CALLED  7 

ENTRY  46 

ENTRY  21 

ENTRY  37 

CALLED  5,15 

CALLED  24 

CALLED  9 
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CLRAOMOD 

FC-3010 

CALLED 

27,29 

CLRADMOD 

FC-3950 

CALLED 

2 

CMOONFLG 

FC-3350 

S-7 

C-7 

T-8 

CMOONFLG 

FC-3605 

S-2 

C-2 

CMOONFLG 

FC-3640 

T-7 

CMOONFLG 

FC-3720 

T-2 

CMOONFLG 

FC-3740 

T-23,27,28 

CMOONFLG 

FC-3760 

T-14 

COARS 

FC-3220 

ENTRY 

9 

COARSE 

FC-3500 

ENTRY 

9 

COARSE 

FC-3510 

CALLED 

11 

COARSE 

FC-3520 

CALLED 

16,38 

COATRIM 

FC-3520 

ENTRY 

37 

COGAFLAG 

FC-3360 

S-23 

C-23,34 

COMFAIL 

FC-3850 

CALLED 

13 

COMMINI T 

FC-3950 

ENTRY 

45 

COMMINIT 

FC-3970 

CALLED 

8 

COMPTGO 

FC-3720 

ENTRY 

24 

COPYCYC 

FC-3850 

ENTRY 

19 

COSINE 

FC-3320 

CALLED 

4 

CPHIFLAG 

FC-3310 

S-7 

T-7 

CREWMANU 

FC-3410 

ENTRY 

2 

CSI  /A 

FC-3720 

ENTRY 

12 

CSMCONIC 

FC-3350 

ENTRY 

13 

CSMCONIC 

FC-3400 

CALLED 

3 

CSMCONIC 

FC-3600 

CALLED 

22,50 

CSMDKFLG 

FC-34A0 

S-5 

C-5 

T-6,R,9 

CSMDKFLG 

FC-3470 

T-12,38,57 

CSMDKFLG 

FC-3490 

T-3 

CSMDKFLG 

FC-3960 

T-3 

CSMPREC 

FC-3250 

CALLED 

3 

CSMPREC 

FC-3350 

ENTRY 

12 

CSMPREC 

FC-3760 

CALLED 

15 

CSMPREC 

FC-3780 

CALLED 

3 

CSMPREC 

FC-3840 

CALLED 

3 

CSMSTORE 

FC-3760 

ENTRY 

15 

CSMVEC 

FC-3605 

ENTRY 

3 

CULTFLAG 

FC-3510 

S-41 

C-41 

T-37 

CURTAINS 

FC-3140 

ENTRY 

4 

CURTAINS 

FC-3500 

CALLED 

5,10 

CURTAINS 

FC-3510 

CALLED 

20,25, 

49 

CURTAINS 

FC-3520 

CALLED 

31,41 

CUTOFF 

FC-3950 

ENTRY 

39 

C13STALL 

FC-3440 

ENTRY 

40 

C13STALL 

FC-3470 

CALLED 

35 

C13STALL 

FC-3900 

CALLED 

7 

C33TEST 

FC-3210 

ENTRY 

45 

DAPATTER 

FC-3440 

ENTRY 

38 

DAPDISP 

FC-3440 

ENTRY 

2 

DAPIDLER 

FC-3010 

CALLED 

8 

OAPIDLER 

FC-3440 

ENTRY 

13 

DAPT4S 

FC-3210 

ENTRY 

57 

DBSELFLG 

FC-3440 

T-19 

DBSL2FL 

FC-3440 

T-19 

DCMTOCDU 

FC-3420 

CALLED 

8 

DCMTOCDU 

FC-3430 

ENTRY 

19 

DELAYJOB 

FC-3050 

ENTRY 

6 
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DELAYJOB 

FC-3250 

CALLED 

3 

DELAYJOB 

FC-3280 

CALLED 

4,5 

DELAYJOB 

FC-3600 

CALLED 

9,18 

DELAYJOB 

FC-3720 

CALLED 

7 

DELAYJOB 

FC-3770 

CALLED 

13 

DELAYJOB 

FC-3810 

CALLED 

5 

DELCOMP 

FC-3420 

CALLED 

7,8 

DELCOMP 

FC-3A30 

ENTRY 

16 

DELTIME 

FC-3360 

ENTRY 

26 

DESCBITS 

FC-3530 

CALLED 

18 

DESCBITS 

FC-3940 

ENTRY 

6 

DESIGFLG 

FC-3600 

C-2, 3, 33, 40, 43, 49  T-39,4 

DESIGFLG 

FC-3980 

S-2 

C-2,9  T-2,5 

DI DFLAG 

FC-3930 

S-12 

C-11  T-12 

DIFEO+0 

FC-3355 

ENTRY 

28 

DI  FEO+1 

FC-3355 

ENTRY 

28 

DIFEO+2 

FC-3355 

ENTRY 

33 

DIMOFLAG 

FC-3350 

S-4t23 

C-3,5, 11 , 13,14,24,27 

DIMOFLAG 

FC-3355 

C-38  T-10,13,33 

DIMOFLAG 

FC-3600 

S-13,20»73,80 

C-12,20,21,72,80 

DIMOFLAG 

FC-3610 

C-3 

DI  SDVLVC 

FC-3720 

ENTRY 

9 

DISPEXIT 

FC-39A0 

CALLED 

2 

DLY2 

FC-3040 

ENTRY 

7 

DMENFLG 

FC-3600 

S-7  2 

C-80 

DMP 

FC-3320 

CALLED 

17,19, 

20 

DMPSUB 

FC-3320 

CALLED 

13, 14, 

18,20 

DNTMFAST 

FC-3210 

ENTRY 

51 

DOACCFUN 

FC-3490 

ENTRY 

32 

DORREPOS 

FC-3210 

ENTRY 

22 

D0T6RUPT 

FC-3440 

ENTRY 

28 

D01/NET+ 

FC-3490 

ENTRY 

32 

DOW.. 

FC-3355 

ENTRY 

41 

DOW. .1 

FC-3355 

ENTRY 

42 

DOWNENT2 

FC-3050 

ENTRY 

2 

DOWNFLAG 

FC-3050 

ENTRY 

3 

DPMODE 

FC-3150 

ENTRY 

14 

DRIFTDFL 

FC-3440 

S-18 

DRIFTDFL 

FC-3470 

T-17,47,63 

DR  I FTDFL 

FC-3490 

T-15 

DRIFTDFL 

FC-3840 

S-20 

C-9 

DRIFTDFL 

FC-3970 

C-3 

DRIFTFLG 

FC-3040 

T-20 

DRIFTFLG 

FC-3210 

S-44 

T-44 

DRIFTFLG 

FC-3220 

C-8 

DRIFTFLG 

FC-3230 

T-12 

DRIFTFLG 

FC-3500 

S-4 

DR  I FTFLG 

FC-35 10 

C-19 

DRIFTFLG 

FC-3850 

S-14 

C-2 

DR  I FTSUB 

FC-3230 

ENTRY 

11 

DSKYFLAG 

FC-3110 

S-5 

DSKYFLAG 

FC-3210 

T-5 

DSPOUTSB 

FC-3210 

ENTRY 

63 

DSRUPTSW 

FC-3210 

S-60 

C-60  T-3,60,62 

DVBYCOSM 

FC-3960 

ENTRY 

39 

D60R9FLG 

FC-3350 

S-23 

C-3, 5, 24 

D60R9FLG 

FC-3355 

T-34 
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^e:0R9FLG 

FC-3600 

S-13,20t73  C-12,20»21,72 

o 

GC 

ENDEXT 

FC-3770 

CALLED 

14 

END  I MU 

FC-3220 

ENTRY 

34 

ENDMANUV 

FC-3430 

CALLED 

4 

ENDMARK 

FC-3530 

CALLED 

13 

ENDRRMON 

FC-3210 

ENTRY 

57 

ENDTNON 

FC-3210 

ENTRY 

40 

ENEMA 

FC-3010 

CALLED 

5 

ENEMA 

FC-3970 

CALLED 

5 

ENGINOFl 

FC-3010 

CALLED 

00 

<M 

ENGINOF2 

FC-3950 

CALLED 

38 

ENGINOF2 

FC-3840 

ENTRY 

13 

ENGOFF 

FC-3950 

ENTRY 

36 

ENGOFFl 

FC-3950 

ENTRY 

38 

ENGONFLG 

FC-3210 

C-33 

ENGONFLG 

FC-3840 

S-8 

C-23 

ENGONFLG 

FC-3960 

T-15 

ENGONFLG 

FC-3970 

S-4 

ENGOFTSK 

FC-3820 

CALLED 

3 

ERADFLAG 

FC-3330 

T-11, 12 

ERADFLAG 

FC-3510 

C-5 

ERADFLAG 

FC-3520 

C-44 

ERADFLAG 

FC-3610 

C-5 

ETPIFLAG 

FC-3740 

S-3 

C-3 

T-4, 11 

EXTVBACT 

FC-3530 

S-2 

C-33 

T-2 

FALTON 

FC-3010 

CALLED 

24 

FALTON 

FC-3090 

CALLED 

15 

FALTON 

FC-3100 

CALLED 

2 

FALTON 

FC-3120 

CALLED 

9t 10»  13 

FALTON 

FC-3400 

CALLED 

2 

FALTON 

FC-3410 

CALLED 

2 

• 

FALTON 

FC-3600 

CALLED 

17 

FALTON 

FC-3770 

CALLED 

2 

FALTON 

FC-3970 

CALLED 

15 

FBR3 

FC-3355 

ENTRY 

29 

F INALFLG 

FC-3700 

S-3 

FINALFLG 

FC-3720 

S-8 

T-4, 8 

F INALFLG 

FC-3730 

T-4 

FINALFLG 

FC-3710 

S-4 

FINALFLG 

FC-3740 

C-28 

T-25 

FINALFLG 

FC-3760 

C-14 

F INDCDUW 

FC-3810 

CALLED 

8 

FINDCDUW 

FC-3810 

CALLED 

9 

F INDCDUW 

FC-3900 

CALLED 

26 

FINDCDUW 

FC-3950 

CALLED 

33 

FINDCDUW 

FC-3960 

ENTRY 

3 

FINDVAC 

FC-3430 

CALLED 

14 

FIXDELAY 

FC-3040 

ENTRY 

7 

FIXDELAY 

FC-3210 

CALLED 

18,19,20,23 

FIXDELAY 

FC-3220 

CALLED 

12 

F I XDELAY 

FC-3600 

CALLED 

19,47 

FIXDELAY 

FC-3780 

CALLED 

2 

FIXDELAY 

FC-3840 

CALLED 

9,  13 

FIXDELAY 

FC-3935 

CALLED 

8 

FLAP 

FC-3950 

T-44 

FLAP 

FC-3970 

S-11 

T-13 

• 

FLASHOFF 

FC-3100 

CALLED 

4 
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FLATOUT 

FC-3840 

CALLED 

18 

FLATOUT 

FC-3900 

ENTRY 

39 

FLIP 

FC-3930 

ENTRY 

3 

FLGWRDll 

FC-3140 

C-16 

FLPC 

FC-3950 

S-21 

T-21 

FLPI 

FC-3950 

S-3 

C-11  T-28 

FLRCS 

FC-3950 

S-39 

T-12,17 

FLRCS 

FC-3970 

C-6 

FLTRSUB 

FC-3960 

ENTRY 

23 

FLUNDI SP 

FC-3840 

S-19 

C-9, 17, 19 

FLUNDI SP 

FC-3900 

T-26 

FLUNDI SP 

FC-3950 

T-34 

FLUNDISP 

FC-3970 

C-6 

FLVR 

FC-3950 

S-3 

C-30  T-28 

FLVR 

FC-3970 

S-10 

FREEFLAG 

FC-3345 

S-2 

C-2  T-2 

FREEFLAG 

FC-3500 

T-7 

FREEFLAG 

FC-3510 

S-47 

C-47  T-28 

FREEFLAG 

FC-3520 

S-14 

C-14  T-15,34 

G+N, AUTO 

FC-3420 

ENTRY 

11 

GEN, AUTO 

FC-3840 

CALLED 

1 1 

GAMCOMP 

FC-3355 

ENTRY 

24 

GCOMPSUB 

FC-3230 

ENTRY 

10 

GCOMPZER 

FC-3520 

CALLED 

17 

GENTRAN 

FC-3050 

ENTRY 

9 

GENTRAN 

FC-3605 

CALLED 

2 

GEOM 

FC-3360 

ENTRY 

35 

GETDAT 

FC-3530 

ENTRY 

5 

GETDT 

FC-3820 

ENTRY 

3 

GET.LVC 

FC-3710 

CALLED 

3 

GET.LVC 

FC-3760 

ENTRY 

12 

GET.LVC 

FC-3800 

CALLED 

5,6 

GET+MGA 

FC-3720 

CALLED 

7 

GET+MGA 

FC-3760 

ENTRY 

11 

GETERAD 

FC-3330 

ENTRY 

9 

GETX 

FC-3360 

ENTRY 

27  ' 

GLOCKMON 

FC-3210 

ENTRY 

53 

GLOKFAIL 

FC-3310 

S-7 

GODSPR 

FC-3510 

CALLED 

19 

GOFLASH 

FC-3510 

CALLED 

3,7,15,24,42,44,47,48 

GOLOADLV 

FC-3100 

ENTRY 

4 

GOMARKF 

FC-3120 

CALLED 

4,5,6 

GOMARK3R 

FC-3440 

CALLED 

12 

GOODEND 

FC-3220 

ENTRY 

34 

GOODEND 

FC-3530 

CALLED 

14 

GOPERFl 

FC-3510 

CALLED 

7,22,29 

G0PERF4R 

FC-3510 

CALLED 

2 

GOPIN 

FC-3440 

ENTRY 

37 

GOPROG 

FC-3010 

ENTRY 

15 

GOPROG2 

FC-3140 

CALLED 

13,18 

GOXDSPF 

FC-3240 

CALLED 

3 

GOXDSPFR 

FC-3440 

CALLED 

4,8,11 

GPMATRIX 

FC-3210 

ENTRY 

57 

GTS 

FC-3470 

CALLED 

44 

GTS 

FC-3480 

ENTRY 

2 

GUESSW 

FC-3360 

T-13, 17 

GUESSW 

FC-3760 

S-4 

C-6 

f33f3<^ 
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GUIOINIT  FC-3900 
GUIDINIT  FC-3950 
GUILDRET  FC-3900 
GUILDRET  FC-3940 
GVDETER  FC-3520 
GYCOARS  FC-3510 
GYROTRIM  FC-3520 
HAVEGUES  FC-3760 
HAVEGUES  FC-3810 
HBAD  FC-3930 
HFAILFLG  FC-3935 
HFLSHFLG  FC-3930 
HFLSHFLG  FC-3935 
IBNKCALL  FC-3060 
ICDUFAIL  FC-3210 
IDLEFLAG  FC-3140 
IDLEFLAG  FC-3820 
IDLEFLAG  FC-3840 
IDLEFLAG  FC-3950 
IDLEFLAG  FC-3970 
IFAILOK  FC-3220 
IGNFLAG  FC-3840 
IMPULSW  FC-3810 
IMPULSW  FC-3820 
IMPULSW  FC-3840 
IMUBAD  FC-3210 
IMUBAD  FC-3220 
IMUCAGE  FC-3210 
IMUCHK  FC-3500 
IMUCHK  FC-3520 
IMUCOARS  FC-3220 
IMUCOARS  FC-3500 
IMUFAIL  FC-3210 
IMUFINE  FC-3220 
IMUFINE  FC-3500 
IMUFINED  FC-3220 
IMUGOOD  FC-3220 
IMUMON  FC-3210 
IMUOP  FC-3210 
IMUPULSE  FC-3150 
IMUPULSE  FC-3220 
IMUPULSE  FC-3230 
IMUPULSE  FC-3510 
IMUPULSE  FC-3520 
IMUSE  FC-3210 
IMUSE  FC-3220 
IMUSE  FC-3250 
IMUSE  FC-3500 
IMUSE  FC-3600 
IMUSTALL  FC-3220 
IMUSTALL  FC-3230 
IMUSTALL  FC-3250 
IMUSTALL  FC-3500 
IMUSTALL  FC-3510 
IMUSTALL  FC-3520 
IMUZERO  FC-3220 
IMUZERO  FC-3250 


CALLED 

3 

ENTRY 

42 

ENTRY 

5 

CALLED 

3 

ENTRY 

11 

ENTRY 

19 

ENTRY 

39 

ENTRY 

4 

CALLED 

13 

ENTRY 

7 

S-31 

C-17 

S-31 

C-17 

ENTRY 

5 

ENTRY 

31 

S-16 

S-3 

S-19 

C-9, 19 

S-37 

C-6 

ENTRY 

17 

S-8 

C-7,9 

S-9 

C-3 

S-22 

C-9, 21 

CALLED 

42 

ENTRY 

34 

ENTRY 

33 

ENTRY 

2 

CALLED 

2 

ENTRY 

6 

CALLED 

10 

ENTRY 

31 

ENTRY 

15 

CALLED 

10 

ENTRY 

16 

ENTRY 

34 

ENTRY 

25 

ENTRY 

35 

CALLED 

1 1 

ENTRY 

21 

CALLED 

10 

CALLED 

20,49 

CALLED 

42 

C-36 

S-33 

S-2 

C-2 

ENTRY 

35 

CALLED 

11 

CALLED 

3 

CALLED 

10 

CALLED 

20,49 

CALLED 

41 

ENTRY 

2 

CALLED 

3 

T-2 

T-19 

T-16 

T-2 

T-9 


T-36t39,42 

T3 
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TMII7ER02 

FC-3220 

ENTRY 

INCORPl 

FC-3600 

CALLED 

INC0RP2 

FC-3600 

CALLED 

INr INFLG 

FC-3360 

S-30 

INITALGN 

FC-3520 

S-9 

INI TCDUW 

FC-3960 

ENTRY 

INI TCDUW 

FC-3970 

CALLED 

INI TVEL 

FC-3710 

CALLED 

INITVEL 

FC-3740 

CALLED 

INI TVEL 

FC-3760 

ENTRY 

INITVEL 

FC-3800 

CALLED 

INSTALL 

FC-3120 

CALLED 

INTEGRV 

FC-3350 

ENTRY 

INTEGRV 

FC-3600 

CALLED 

INTEGRV 

FC-3610 

CALLED 

INTEGRV2 

FC-3355 

CALLED 

INTEGRVS 

FC-3350 

ENTRY 

INTEGRVS 

FC-3610 

CALLED 

INTEGRVS 

FC-3640 

CALLED 

INTEGRVS 

FC-3740 

CALLED 

INTEGRVS 

FC-3760 

CALLED 

INTEGRVS 

FC-3780 

CALLED 

INTEGRVS 

FC-3900  . 

CALLED 

INTFLAG 

FC-3350 

INTGRATE 

FC-3355 

ENTRY 

INTINT 

FC-3720 

CALLED 

INTINT 

FC-3730 

CALLED 

INTINT2C 

FC-3720 

ENTRY 

INTINT3P 

FC-3730 

ENTRY 

INTPRET 

FC-3320 

CALLED 

INTSTALL 

FC-3010 

CALLED 

INTSTALL 

FC-3350 

ENTRY 

INTSTALL 

FC-3600 

CALLED 

INTSTALL 

FC-3605 

CALLED 

INTSTALL 

FC-3610 

CALLED 

INTSTALL 

FC-3640 

CALLED 

INTSTALL 

FC-3740 

CALLED 

INTSTALL 

FC-3760 

CALLED 

INTSTALL 

FC-3780 

CALLED 

INTSTALL 

FC-3900 

CALLED 

INTWAKE 

FC-3350 

ENTRY 

INTWAKE 

FC-3355 

CALLED 

INTWAKE 

FC-3605 

CALLED 

INTWAKEU 

FC-3120 

CALLED 

INTWAKEU 

FC-3350 

ENTRY 

INTWAKEO 

FC-3350 

ENTRY 

INTWAKEO 

FC-3600 

CALLED 

I NTWAKEO 

FC-3640 

CALLED 

INTYPFLG 

FC-3350 

S-13 

INTYPFLG 

FC-3600 

INTYPFLG 

FC-3610 

INTYPFLG 

FC-3640 

INTYPFLG 

FC-3740 

S-22 

INTYPFLG 

FC-3760 

INTYPFLG 

FC-3900 

S-20 

INVFLAG 

FC-3840 

CALLED 

IRIGX 

FC-3230 

ENTRY 

4 

83 

83 

C-30  T-19,23 

C-10  T-34,35,38,A3 

2 

6 

3 

19 

4 
6 
8 

15 

12,21 

3 

36 

14 

3 

4 

23 

7 

5 

20 

C-19  T-17 

9 

4,16,17, 

2 

16 
2 
9 

26 

17 

3,6, 12,14,21 
2 
3 

3,5 

22 

6 

4,5,6 

19 

18 
40 
3 

13 

20 
18 

14 
6 

C-3,5,12,24,27  T-15 

C-12, 20, 21,73,80 

C-3 

C-4 

C-22 

C-7 

20 

5 
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IRIGY 

FC-3230 

ENTRY 

7 

IRIGZ 

FC-3230 

ENTRY 

8 

ISITAUTO 

FC-3A20 

ENTRY 

11 

ISITAUTO 

FC-3430 

CALLED 

9 

ISWCALL 

FC-3060 

ENTRY 

6 

ISWRETRN 

FC-3060 

ENTRY 

6 

I TERATOR 

FC-3360 

ENTRY 

37 

ITSWICH 

FC-3730 

S-4 

ITSWICH 

FC-3740 

S-4 

C 

ITURNON 

FC-3210 

ENTRY 

29 

JOBSLEEP 

FC-3050 

CALLED 

8 

JOBSLEEP 

FC-3220 

CALLED 

23t35 

JOBWAKE 

FC-3050 

CALLED 

8 

JOBWAKE 

FC-3220 

CALLED 

24,34 

JOBWAKE 

FC-3350 

CALLED 

19 

JTLST 

FC-3^40 

ENTRY 

32 

JTLST 

FC-3470 

CALLED 

70 

JUSTTRIM 

FC-3520 

ENTRY 

41 

KALCMAN3 

FC-3420 

CALLED 

4 

KALCMAN3 

FC-3430 

ENTRY 

5 

KEPLERN 

FC-3355 

CALLED 

32 

KEPLERN 

FC-3360 

ENTRY 

3 

KEPPREP 

FC-3350 

CALLED 

16 

KEPPREP 

FC-3355 

ENTRY 

30 

KEYRUPTl 

FC-3110 

ENTRY 

4 

KILLTASK 

FC-3600 

CALLED 

23,84,85 

KILLTASK 

FC-3840 

CALLED 

18,20 

LALOTORV 

FC-3330 

ENTRY 

7 

LALOTORV 

FC-3510 

CALLED 

16 

LAMBERT 

FC-3360 

ENTRY 

11 

LAMBERT 

FC-3760 

CALLED 

6 

LAMENTER 

FC-3360 

ENTRY 

36 

LAMPTEST 

FC-3210 

ENTRY 

28 

LANDISP 

FC-3930 

ENTRY 

6 

LANDJUNK 

FC-3910 

ENTRY 

2 

LASTBI AS 

FC-3230 

ENTRY 

15 

LASTBI AS 

FC-3850 

CALLED 

2 

LAT-LONG 

FC-3330 

ENTRY 

2 

LAT-LONG 

FC-3510 

CALLED 

14 

LAT-LONG 

FC-3610 

CALLED 

5 

LAT-LONG 

FC-3910 

CALLED 

2 

LEGAL? 

FC-3970 

ENTRY 

15 

LEMCONIC 

FC-3350 

ENTRY 

13 

LEMCONIC 

FC-3400 

CALLED 

3 

LEMCONIC 

FC-3435 

CALLED 

3 

LEMCONIC 

FC-3510 

CALLED 

13 

LEMCONIC 

FC-3600 

CALLED 

22 

LEMPREC 

FC-3250 

CALLED 

2 

LEMPREC 

FC-3350 

ENTRY 

12 

LEMPREC 

FC-3510 

CALLED 

30 

LEMPREC 

FC-3520 

CALLED 

5 

LEMPREC 

FC-3710 

CALLED 

2 

LEMPREC 

FC-3760 

CALLED 

15 

LEMPREC 

FC-3780 

CALLED 

3,4 

LEMPREC 

FC-3800 

CALLED 

6 

LEMPREC 

FC-3900 

CALLED 

3 

LEMPREC 

FC-3950 

CALLED 

5 

T-5»ll 
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LEMSTORE 

FC-3760 

ENTRY 

15 

LEMVEC 

FC-3605 

ENTRY 

3 

LETABORT 

FC-3840 

S-10 

LETABORT 

FC-3910 

C-2 

LETABORT 

FC-3930 

T-4 

LETABORT 

FC-3950 

C-41 

LETABORT 

FC-3970 

C-13 

T-15 

LIMITSUB 

FC-3935 

CALLED 

15 

LIMITSUB 

FC-3960 

ENTRY 

25 

LINUS 

FC-3420 

CALLED 

10 

LMOONFLG 

FC-3350 

S-9 

C-9 

T-10 

LMOONFLG 

FC-3600 

T-73 

LMOONFLG 

FC-3605 

T-2 

LMOONFLG 

FC-3770 

T-11 

LOADTIME 

FC-3150 

ENTRY 

2 

LOADTIME 

FC-3250 

CALLED 

2 

LOADTIME 

FC-3350 

CALLED 

2,26, 

27 

LOADTIME 

FC-3355 

CALLED 

37 

LOADTIME 

FC-3400 

CALLED 

3 

LOADTIME 

FC-3435 

CALLED 

3 

LOADTIME 

FC-3510 

CALLED 

22t44 

LOADTIME 

FC-3520 

CALLED 

4,26, 

44,46,48 

LOADTIME 

FC-3600 

CALLED 

16,20 

,24,31,50,84,85 

LOADTIME 

FC-3610 

CALLED 

2 

LOADTIME 

FC-3750 

CALLED 

2 

LOADTIME 

FC-3770 

CALLED 

6 

LOADTIME 

FC-3780 

CALLED 

3,4 

LOADTIME 

FC-3790 

CALLED 

3,7 

LOADTIME 

FC-3950 

CALLED 

36,42 

LOADTIME 

FC-3970 

CALLED 

7 

LOCSAM 

FC-3500 

CALLED 

13 

LOCSAM 

FC-3510 

ENTRY 

30 

LODSAMPT 

FC-3110 

CALLED 

4,6 

LOGSUB 

FC-3950 

ENTRY 

50 

LOKONSW 

FC-3600 

S-30»3] 

1 

C-30,85 

T-42 

LONGCALL 

FC-3040 

ENTRY 

19 

LOSCMFLG 

FC-3600 

S-A9 

C-15, 31, 32,43 

,84  T-22 

LOSCMFLG 

FC-3980 

S-3,5 

C-2, 3, 10 

T-3,5 

LPOS2FLG 

FC-3935 

S-26 

LRALT 

FC-3930 

CALLED 

6 

LRBYPASS 

FC-3140 

S-16 

LRBYPASS 

FC-3280 

T-8 

LRBYPASS 

FC-3850 

T-4 

LRBYPASS 

FC-3900 

C-2 

LRBYPASS 

FC-3930 

T-5 

LRBYPASS 

FC-3935 

T-6,9 

LRBYPASS 

FC-3970 

S-4 

LRHJOB 

FC-3930 

ENTRY 

6 

LRHTASK 

FC-3930 

ENTRY 

5 

LRINH 

FC-3935 

S-2 

C-3,4,10 

T-17,24 

LRPOSFLG 

FC-3935 

S-7 

LRPOS2 

FC-3935 

ENTRY 

7 

LRVELFLG 

FC-3600 

C-63 

T-94 

LSOR lENT 

FC-3510 

ENTRY 

6 

LSORI ENT 

FC-3520 

CALLED 

5 

LSPOS 

FC-3355 

CALLED 

7,12 

LSPOS 

FC-3435 

CALLED 

4 
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LSPOS 

FC-3510 

CALLED 

30 

LUNAFLAG 

FC-3330 

T-2ydf 10» 

LUNAFLAG 

FC-3510 

S-5 

LUNAFLAG 

FC-3520 

S-44 

LUNAFLAG 

FC-3610 

S-5 

C-4 

LUNAFLAG 

FC-3910 

S-2 

LUNLAND 

FC-3940 

ENTRY 

2 

LUNPOS 

FC-3355 

CALLED 

6 

MAKECAOR 

FC-3050 

CALLED 

8 

MAKECADR 

FC-3060 

ENTRY 

4 

MAKECADR 

FC-3220 

CALLED 

35 

MAKECADR 

FC-3420 

CALLED 

2 

MAKECADR 

FC-3510 

CALLED 

34 

MAKECADR 

FC-3600 

CALLED 

24 

MARKRUPT 

FC-3530 

ENTRY 

18 

MARKTYPE 

FC-3530 

ENTRY 

21 

MATMOVE 

FC-3500 

CALLED 

8 

MATMDVE 

FC-3510 

ENTRY 

50 

MATMOVE 

FC-3520 

CALLED 

3»37 

t42 

MAXCHK 

FC-3710 

CALLED 

3»4 

MFREF 

FC-3520 

ENTRY 

48 

MGLVFLAG 

FC-3760 

S-12 

C-11 

MI DAVFLG 

FC-3350 

S-27 

C-28 

MIDAVFLG 

FC-3355 

T-33 

MIDFLAG 

FC-3355 

S-2 

C-2 

T-5tll»41 

MIDIFLAG 

FC-3355 

T-37 

MI DTOAVl 

FC-3350 

ENTRY 

26 

MIDTOAVl 

FC-3840 

CALLED 

3 

MI DTOAV2 

FC-3350 

ENTRY 

26 

MIDTOAV2 

FC-3830 

CALLED 

2 

MIDIFLAG 

FC-3350 

S-26 

C-26 

MINIMP 

FC-3440 

ENTRY 

37 

MINIRECT 

FC-3355 

ENTRY 

43 

MINIRECT 

FC-3600 

CALLED 

14 

MINIRECT 

FC-3640 

CALLED 

5 

MKREJ 

FC-3530 

ENTRY 

25 

MKRELEAS 

FC-3530 

ENTRY 

14 

MODEEX I T 

FC-3220 

ENTRY 

36 

MOONFLAG 

FC-3140 

T-17 

MOONFLAG 

FC-3350 

S-8, 11 , 

21 

C-8, 21 

T-7,9, 14 

MOONFLAG 

FC-3355 

S-A4 

C-44 

T-6,12»14 

20»32»40t 

41,44 

MOONFLAG 

FC-3610 

S-3 

C-3 

MOONFLAG 

FC-3640 

S-7 

C-7 

MOONFLAG 

FC-3740 

S-23 

C-23 

MOONFLAG 

FC-3760 

S-7 

C-7 

MOONFLAG 

FC-3900 

S-20 

MPACVBUF 

FC-3320 

CALLED 

9,  10 

MPACVBUF 

FC-3980 

CALLED 

7 

MR.KLEAN 

FC-3140 

CALLED 

15 

MUNFLAG 

FC-3210 

T-14 

MUNFLAG 

FC-3840 

T-3 

MUNFLAG 

FC-3850 

C-14 

T-4,8, 11 

MUNFLAG 

FC-3900 

S-2 

MUNFLAG 

FC-3950 

S-3 

MUNGRAV 

FC-3840 

CALLED 

3 
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MUNGRAV 

MUNGRAV 

MUNGRAV 

MUNRETRN 

MXM3 

MXM3 

NBOONLY 

NBDONLY 

NBSM 

NB2CDUSP 

NCOARSE 

NCOARSE 

NCOARSE 

NDELVFLG 

NEEDIER 

NEEDLFLG 

NEED2FLG 

NEWIFLG 

NEWIFLG 

NEWMODEA 

NEWMODEX 

NEWMODEX 

NEWMODEX 

NEWSTATE 

NEXTCOL 

NJETSFLG 

NJETSFLG 

NOATTOFF 

NOATTOFF 

NODOFLAG 

NODOFLAG 

NODOFLAG 

NODOFLAG 

NOLRREAD 

NOLRREAD 

NOLRREAD 

NOMINIMP 

NORMSW 

NORMSW 

NORMSW 

NORMSW 

NORMUNI T 

NORMUNIT 

NORMUNXl 

NORRGMON 

NORRMON 

NORRMON 

NOR29FLG 

NOR29FLG 

NOR29FLG 

NOTERFLG 

NOTERFLG 

NOTERFLG 

NOTHROTL 

NOTHROTL 

NOTHROTL 

NOTIME 


FC-3900 

CALLED  4 

FC-3935 

CALLED  16 

FC-3950 

CALLED  6 

FC-3935 

ENTRY  9 

FC-3A20 

CALLED  7,8 

FC-3430 

ENTRY  23 

FC-3040 

CALLED  18 

FC-3230 

ENTRY  14 

FC-3320 

ENTRY  8 

FC-3960 

ENTRY  27 

FC-3500 

ENTRY  4 

FC-3510 

CALLED  11,21 

FC-3520 

CALLED  38 

FC-3720 

S-10 

FC-34A0 

ENTRY  25 

FC-34^0 

S-38 

C-38 

T-21 

FC-3A40 

T-21 

FC-3350 

S-14,39 

FC-3355 

C-5 

T-5 

FC-3010 

CALLED  33 

FC-3120 

CALLED  3,13 

FC-3900 

CALLED  6 

FC-39A0 

CALLED  3 

FC-3360 

ENTRY  36 

FC-3355 

ENTRY  36 

FC-34A0 

S-6 

C-6 

FC-3810 

T-2 

FC-3210 

CALLED  39,41 

FC-3220 

ENTRY  38 

FC-3140 

C-14 

FC-3250 

S-2 

C-3 

FC-3350 

S-3 

C-6 

FC-3640 

S-2 

C-6 

FC-3850 

T-20 

FC-3930 

T-5 

FC-3935 

S-27 

C-28 

T-10 

FC-3440 

ENTRY  37 

FC-3360 

C-34 

T-35 

FC-3760 

S-5 

C-4 

FC-3800 

T-6 

FC-3810 

T-7,  10,  13 

FC-3150 

ENTRY  12 

FC-3960 

CALLED  5,6 

FC-3150 

ENTRY  12 

FC-3210 

ENTRY  17 

FC-3210 

T-14 

FC-3600 

S-28,85 

C-15,28,31 

FC-3850 

S-14 

FC-3935 

T-6 

FC-3980 

T-11 

FC-3900 

C-2 

FC-3935 

S-5 

C-23 

FC-3940 

S-5 

FC-3800 

C-3 

FC-3840 

S-21,22 

C-21 

T-9 

FC-3900 

C-2 

FC-3355 

CALLED  37 
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NOUPFLAG 

FC-3600 

S-10 

T-56 

NnUPFLAG 

FC-3605 

C-3 

N051 IFLG 

FC-3935 

S-27 

T-10 

NTARGFLG 

FC-3740 

S-25 

T-25 

NVSUB 

FC-3100 

CALLED 

3 

N89DI SP 

FC-3510 

ENTRY 

14 

N89DI SP 

FC-3520 

CALLED 

45 

OANB 

FC-3510 

CALLED 

44 

OANB 

FC-3520 

CALLED 

27 

OANB 

FC-3530 

ENTRY 

31 

occns 

FC-3510 

ENTRY 

31 

OCCULT 

FC-3510 

ENTRY 

41 

OLDESFLG 

FC-3980 

S-3 

C-2 

T-3 

0NEST02S 

FC-3960 

ENTRY 

38 

OPTSTALL 

FC-3510 

CALLED 

25 

ORBWFLAG 

FC-3350 

C-21 

T-23 

ORBWFLAG 

FC-3355 

C-38 

ORDERSW 

FC-3360 

T-37,38 

OR IGCHNG 

FC-3355 

ENTRY 

44 

OTHPREC 

FC-36A0 

CALLED 

3 

OTHPREC 

FC-3770 

CALLED 

7 

OTHPREC 

FC-3790 

CALLED 

4 

OURRCFLG 

FC-3A70 

S-36 

C-27 

T-26,28 

OUTSNUFF 

FC-3A40 

ENTRY 

39 

OVERSUB 

FC-3470 

CALLED 

8,9, 

10, 13,14,15,16 

OVERSUB2 

FC-34A0 

ENTRY 

35 

PARAM 

FC-3360 

ENTRY 

34 

PASSIVE 

FC-3720 

CALLED 

4 

PASSIVE 

FC-3730 

CALLED 

2 

PASSIVE 

FC-37AO 

CALLED 

16 

PASTI  T 

FC-3530 

ENTRY 

9 

PAXIS 

FC-3440 

CALLED 

12 

PAX  IS 

FC-3470 

ENTRY 

2 

PDSPFLAG 

FC-3100 

T-3 

PDSPFLAG 

FC-3420 

S-10 

T-10, 11 

PDSPFLAG 

FC-3600 

S-26 

C-26 

PER  I APO 

FC-3720 

CALLED 

14 

PERIAPO 

FC-3760 

ENTRY 

13 

PERIAPOl 

FC-3710 

CALLED 

3 

PERI APOl 

FC-3720 

CALLED 

17 

PERIAPOl 

FC-3740 

CALLED 

7 

PERIAPOl 

FC-3760 

ENTRY 

13 

PFAILOK 

FC-3210 

CALLED 

44 

PFAILOK 

FC-3220 

ENTRY 

18 

PFLITEDB 

FC-3440 

ENTRY 

19 

PFLITEDB 

FC-3800 

CALLED 

3 

PFLITEDB 

FC-3900 

CALLED 

22 

PFRATFLG 

FC-3510 

C-12,21,29 

T-2 

PFRATFLG 

FC-3800 

S-7 

PICAPAR 

FC-3510 

ENTRY 

34 

PINBRNCH 

FC-3080 

CALLED 

15 

PINBRNCH 

FC-3120 

CALLED 

2 

PINBRNCH 

FC-3440 

CALLED 

37 

PINBRNCH 

FC-3970 

CALLED 

15 

P I PASR 

FC-3850 

ENTRY 

6 

PIPFAIL 

FC-3210 

ENTRY 

49 

PIPFREE 

FC-3220 

ENTRY 

20 

1 o 1 r* 


PIPFREE 

PIPSRINE 

PIPUSE 

PI PUSEl 

PJETSLEC 

PLANET 

PLANET 

PLANET 

PLITEDB 

POLY 

POLY 

POODOO 

POODOO 

POODOO 

POODOOl 

POODOOl 

POOHFLAG 

POOHFLAG 

POSTJUMP 

POWRSERS 

PRECIFLG 

PRECIFLG 

PRECSET 

PRECSET 

PRECSET 

PRECSET 

PRERADAR 

PREREAD 

PRIOCHNG 

PRIOCHNG 

PRIOCHNG 

PRIOCHNG 

PRIOCHNG 

PRIOCHNG 

PRIOCHNG 

PRIOCHNG 

PRIOCHNG 

PRIOCHNG 

PRIODFLG 

PR lODSPR 

PRIOLARM 

PROCKEY 

PR0G20 

PROG21 

PROG22 

PROG25 

PROG52 

PRONVFLG 

PSTHIGAT 

PTOACSM 

PTOALEM 

PTOALEM 

PLILSEFLG 

PULSEFLG 

PULSEFLG 

PULSEFLG 

PULSEFLG 


FC-3850 

CALLED 

14 

FC-3520 

CALLED 

00 

FC-3220 

ENTRY 

19 

FC-3220 

ENTRY 

19 

FC-3470 

ENTRY 

40 

FC-3500 

ENTRY 

11 

FC-3510 

CALLED 

26»27,45 

FC-3520 

CALLED 

26,32,33 

FC-3950 

CALLED 

1 1 

FC-3360 

CALLED 

26,29 

FC-3950 

CALLED 

50 

FC-3140 

ENTRY 

5 

FC-3355 

CALLED 

23 

FC-3530 

CALLED 

2 

FC-3040 

CALLED 

8,19 

FC-3140 

ENTRY 

7 

FC-3350 

S-3 

FC-3355 

FC-3060 

ENTRY 

3 

FC-3900 

CALLED 

43 

FC-3350 

S-5»  12 

C-4 

FC-3355 

C-40 

FC-3720  - 

CALLED 

2,10 

FC-3740 

CALLED 

5 

FC-3750 

CALLED 

2 

FC-3760 

ENTRY 

15 

FC-3850 

CALLED 

20 

FC-3850 

ENTRY 

2 

FC-3240 

CALLED 

2 

FC-3420 

CALLED 

10 

FC-3435 

CALLED 

7 

FC-3440 

CALLED 

2 

FC-3600 

CALLED 

3,17 

FC-3770 

CALLED 

2 

FC-3780 

CALLED 

6 

FC-3900 

CALLED 

8 

FC-3935 

CALLED 

23 

FC-3970 

CALLED 

12 

FC-3100 

FC-3140 

CALLED 

12 

FC-3140 

ENTRY 

3 

FC-3210 

CALLED 

6 

FC-3600 

ENTRY 

11 

FC-3610 

ENTRY 

2 

FC-3600 

ENTRY 

1 1 

FC-3620 

ENTRY 

2 

FC-3510 

ENTRY 

2 

FC-3100 

FC-3935 

S-27 

FC-3350 

ENTRY 

8 

FC-3350 

ENTRY 

10 

FC-3605 

CALLED 

2 

FC-3440 

S-38 

C-38 

FC-3470 

FC-3840 

C-10 

FC-3910 

S-2 

FC-3970 

C-3 

T-A 


T-4 


T-3 


T-3 


T-22,50 
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PULSEIMU 

FC-3150 

ENTRY 

11 

P12INIT 

FC-3970 

CALLED 

13 

P12LM 

FC-3950 

ENTRY 

2 

P12NIT 

FC-3950 

ENTRY 

44 

P12RET 

FC-3950 

ENTRY 

10 

P20FLG0N 

FC-3730 

CALLED 

1 

P20FLG0N 

FC-3750 

CALLED 

2 

P21FLAG 

FC-3610 

S-4 

T-3 

P25FLAG 

FC-3600 

C-2 

T-2t24 

P25FLAG 

FC-3620 

S-2 

T-3 

P25FLAG 

FC-3900 

C-2 

P3X0RP7X 

FC-3720 

ENTRY 

24 

P30 

FC-3700 

ENTRY 

2 

P31 

FC-3710 

ENTRY 

2 

P32 

FC-3720 

ENTRY 

2 

P33 

FC-3730 

ENTRY 

1 

P34 

FC-3740 

ENTRY 

2 

P35 

FC-3750 

ENTRY 

2 

P40AUT0 

FC-3a40 

ENTRY 

11 

PAOAUTO 

FC-3R50 

CALLED 

1 1 

PAOAUTQ 

FC-3970 

CALLED 

11 

P40LM 

FC-3B00 

ENTRY 

2 

PAOSXT4 

FC-3800 

ENTRY 

4 

P40SXTA 

FC-3810 

CALLED 

4 

PAILM 

FC-3810 

ENTRY 

2 

P42LM 

FC-3820 

ENTRY 

2 

P47LM 

FC-3830 

ENTRY 

1 

P51 

FC-3500 

ENTRY 

2 

P57 

FC-3520 

ENTRY 

2 

P570PT0 

FC-3520 

ENTRY 

21 

P570PT1 

FC-3520 

ENTRY 

23 

P570PT2 

FC-3520 

ENTRY 

25 

P570PT3 

FC-3520 

ENTRY 

24 

P63DISPS 

FC-3900 

ENTRY 

27 

P63LM 

FC-3900 

ENTRY 

2 

P66PR0FL 

FC-3900 

C-27 

1 

00 

P66PR0FL 

FC-3940 

S-4 

P70 

FC-3970 

ENTRY 

2 

P70A 

FC-3930 

CALLED 

5 

P70A 

FC-3970 

ENTRY 

2 

P70P71FL 

FC-3970 

S-6 

P7071FLG 

FC-3950 

T-16»24 

P71 

FC-5970 

ENTRY 

2 

P71A 

FC-3930 

CALLED 

4 

P71A 

FC-3970 

ENTRY 

2 

P72 

FC-3720 

ENTRY 

2 

P73 

FC-3730 

ENTRY 

1 

P74 

FC-3740 

ENTRY 

2 

P75 

FC-3750 

ENTRY 

2 

P76 

FC-3640 

ENTRY 

2 

OERRCALC 

FC-3440 

CALLED 

23 

ORAXIS 

FC-3470 

ENTRY 

43 

OTPROLOG 

FC-3320 

ENTRY 

5 

OUICTRIG 

FC-3320 

ENTRY 

6 

OUICTRIG 

FC-3850 

CALLED 

10 

OUICTRIG 

FC-3935 

CALLED 

18 

OUICTRIG 

FC-3960 

CALLED 

6 
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OUICTRIG 

FC-3980 

CALLED 

7 

OUIKDSP 

FC-3210 

ENTRY 

60 

OUITFLAG 

FC-3350 

C-2 

T-2 

OUITFLAG 

FC-3355 

T-2 

R-TO-RP 

FC-3330 

CALLED 

3 

R-TO-RP 

FC-3355 

CALLED 

16 

RADSTALL 

FC-3220 

ENTRY 

34 

RADSTALL 

FC-3280 

CALLED 

6 

RADSTALL 

FC-3600 

CALLED 

30t31 

,59 

RADSTALL 

FC-3930 

CALLED 

6 

RADSTALL 

FC-3935 

CALLED 

5,27 

RADSTALL 

FC-3980 

CALLED 

4,11, 

12 

RCDUFAIL 

FC-3600 

T—  66, 68 , 

RCDUOFLG 

FC-3600 

T-18,54, 

RCSMONIT 

FC-3210 

ENTRY 

8 

RDCDUS 

FC-3510 

ENTRY 

9 

RDRUSFCK 

FC-3935 

ENTRY 

6 

READCDUK 

FC-3A20 

CALLED 

5 

READCDUK 

FC-3430 

ENTRY 

23 

READRFLG 

FC-3980 

C-12 

T-10 

READVEL 

FC-3935 

S-22 

RECTIFY 

FC-3350 

CALLED 

14,  16 

RECTIFY 

FC-3355 

ENTRY 

43 

RECTOUT 

FC-3355 

ENTRY 

40 

REINTFLG 

FC-3120 

S-8 

REINTFLG 

FC-3355 

S-34»39 

REDFLAG 

FC-3900 

S-29 

C-2, 7, 28 

T-9, 28 

REDFLAG 

FC-3940 

C-5 

REFMF 

FC-3520 

ENTRY 

46 

REFMF 

FC-3910 

CALLED 

3 

T-33 

REFSMFLG 

FC-3220 

C-8 

REFSMFLG 

FC-3250 

T-2 

REFSMFLG 

FC-3500 

S-R 

REFSMFLG 

FC-3510 

S-12,21 

C-19 

REFSMFLG 

FC-3520 

S-43 

C-11 

T-6,7,25 

REFSMFLG 

FC-3720 

T-7 

REINTFLG 

FC-3120 

S-8 

REINTFLG 

FC-3140 

C-14 

REINTFLG 

FC-3350 

S-17 

C-19 

T-17, 18 

REINTFLG 

FC-3355 

S-34,39 

REINTFLG 

FC-3640 

S-5 

RELDSP 

FC-3010 

called 

27,33 

RELDSP 

FC-3080 

CALLED 

15 

RELDSP 

FC-3970 

CALLED 

15 

REL INUS 

FC-3420 

ENTRY 

10 

REMARK 

FC-3530 

ENTRY 

27 

REMODE 

FC-3600 

ENTRY 

45 

REMODFLG 

FC-3600 

S-33 

C-46 

T-39,47, 

REMODFLG 

FC-3980 

S-2 

RENDWFLG 

FC-3350 

C-21 

T-4,5,23 

RENDWFLG 

FC-3355 

C-38 

RENDWFLG 

FC-3600 

S-81 

C-5, 10 

T-36,43, 

RENDWFLG 

FC-3950 

C-12 

RENDZFLG 

FC-3950 

C-3 

T-36,43, 

REPOSMON 

FC-3600 

REPOSMON 

FC-3980 

S-2 

C-4 

RESTORDB 

FC-3440 

ENTRY 

18 
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RESTORDB 

FC-3600 

CALLED 

3»26 

RESTORDB 

FC-3800 

CALLED 

4 

RESTORDB 

FC-3950 

CALLED 

41 

RESUME 

FC-3110 

CALLED 

8,9» 10 

RGOODEND 

FC-3935 

CALLED 

7 

RHCSFLG 

FC-3440 

S-7 

RNDREFDR 

FC-3210 

CALLED 

34,36 

RNDREFDR 

FC-3220 

ENTRY 

8 

RNDVZFLG 

FC-3210 

C-36 

T-12 

RNDVZFLG 

FC-3420 

T-10 

RNDVZFLG 

FC-3600 

S-15 

C-2 

T-2, 19,23, 

RNDVZFLG 

FC-3620 

C-2 

RNDVZFLG 

FC-3900 

C-2 

RNGEDATA 

FC-3930 

S-7 

RNGEDATA 

FC-3935 

C-12 

T-13 

RNGSCFLG 

FC-3600 

S-90 

C-59 

T-60 

RNGSCFLG 

FC-3930 

C-7 

RNGSCFLG 

FC-3980 

C-12 

T-12 

RODFLAG 

FC-3940 

S-4 

T-3 

ROT-TOUV 

FC-3490 

CALLED 

15 

ROTATE 

FC-3720 

ENTRY 

10 

ROTFLAG 

FC-3950 

C-29,32 

T-30,31 

RPCOMPl 

FC-3950 

ENTRY 

49 

RPCOMP2 

FC-3950 

ENTRY 

49 

RPOFLAG 

FC-3350 

S-14 

RP-TO-R 

FC-3330 

CALLED 

8 

RP-TO-R 

FC-3350 

CALLED 

11 

RP-TO-R 

FC-3510 

CALLED 

5 

RP-TO-R 

FC-3520 

CALLED 

48,49 

RP-TO-R 

FC-3900 

CALLED 

3 

RP-TO-R 

FC-3950 

CALLED 

42 

RPOFLAG 

FC-3355 

S-23 

C-14 

T-6,7 

RRAUTCHK 

FC-3210 

ENTRY 

10 

RRCDUCHK 

FC-3210 

ENTRY 

12 

RRDESEND 

FC-3600 

ENTRY 

2 

RRGIMON 

FC-3210 

ENTRY 

14 

RRL IMCHK 

FC-3210 

CALLED 

16 

RRNB 

FC-3600 

ENTRY 

53 

RRNBSW 

FC-3600 

S-33 

C-23,35 

T-40,42 

RROUT 

FC-3600 

ENTRY 

48 

RROUT 

FC-3980 

CALLED 

9 

RRRANGE 

FC-3600 

ENTRY 

62 

RRRANGE 

FC-3980 

CALLED 

11 

RRRDOT 

FC-3600 

ENTRY 

62 

RRRDOT 

FC-3980 

CALLED 

11 

RRRSFLAG 

FC-3600 

S-59 

C-59 

RRSONLY 

FC-3210 

CALLED 

23 

RRSONLY 

FC-3600 

ENTRY 

47 

RRTONLY 

FC-3210 

CALLED 

23 

RRTONLY 

FC-3600 

ENTRY 

47 

RRTONLY 

FC-3980 

CALLED 

4 

RRTURNON 

FC-3210 

ENTRY 

18 

RRZEROSB 

FC-3210 

ENTRY 

19 

RVSW 

FC-3360 

T-23 

RVSW 

FC-3600 

C-13 

RVSW 

FC-3720 

S-14, 15 

RVSW 

FC-3730 

C-8 

is-5!n 


RVSW 

FC-3740 

S-6 

R-TO-RP 

FC-3520 

CALLED  45,^7 

R-TO-RP 

FC-3910 

CALLED  3 

R02B0TH 

FC-3220 

ENTRY  33 

R02B0TH 

FC-3^00 

CALLED  3 

R02B0TH 

FC-3510 

CALLED  2 

R02B0TH 

FC-3600 

CALLED  15 

R02B0TH 

FC-3620 

CALLED  2 

R02B0TH 

FC-3800 

CALLED  2 

R02BOTH 

FC-3810 

CALLED  2 

R02B0TH 

FC-3820 

CALLED  2 

R02B0TH 

FC-3830 

CALLED  2 

R02B0TH 

FC-3900 

CALLED  2 

R02B0TH 

FC-3950 

CALLED  2 

R04 

FC-3280 

ENTRY  2 

ROAFLAG 

FC-3280 

S-2 

C-5 

T-2t3 

ROAFLAG 

FC-3600 

C-15 

R10,R11 

FC-3850 

CALLED  9 

RlOtRl 1 

FC-3930 

ENTRY  2 

RICFLAG 

FC-3930 

T-11,12»16 

RIOFLAG 

FC-3950 

S-3 

RIOFLAG 

FC-3970 

S-4 

R12RDFLG 

FC-3935 

T-20 

R29 

FC-3980 

ENTRY  2 

R31CALL 

FC-3780 

ENTRY  2 

R33 

FC-3240 

ENTRY  2 

R36 

FC-3790 

ENTRY  3 

R51 

FC-3510 

ENTRY  22 

R51P63 

FC-3900 

CALLED  22 

R52 

FC-3510 

ENTRY  42 

R54 

FC-3520 

CALLED  34 

R55 

FC-3510 

ENTRY  48 

R59 

FC-3520 

ENTRY  25 

R60LEM 

FC-3400 

CALLED  4 

R60LEM 

FC-3410 

CALLED  2 

R60LEM 

FC-3A20 

ENTRY  2 

R60LEM 

FC-3510 

CALLED  45 

R60LEM 

FC-3600 

CALLED  26 

R60LEM 

FC-3800 

CALLED  4 

R60LEM 

FC-3900 

CALLED  23 

R61FLAG 

FC-3600 

S-24 

C-24 

T-27 

R62DISP 

FC-3410 

ENTRY  2 

R65LEM 

FC-3620 

CALLED  3 

R77 

FC-3280 

ENTRY  2 

R77END 

FC-3280 

ENTRY  5 

R77FLAG 

FC-3280 

S-2 

C-5 

T-6,8 

R77FLAG 

FC-3600 

T-65 

R77FLAG 

FC-3935 

T-6 

SBANDANT 

FC-3435 

ENTRY  3 

SCNDSOL 

FC-3720 

ENTRY  22 

SELECTMU 

FC-3720 

CALLED  3 

SELECTMU 

FC-3730 

CALLED  1 

SELECTMU 

FC-3750 

CALLED  2 

SELECTMU 

FC-3760 

ENTRY  14 

SERVICER 

FC-3850 

ENTRY  9 

SETCOARS 

FC-3210 

CALLED  54 

SETCOARS 

FC-3220 

ENTRY  7 
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SETI SSW 

FC-3210 

ENTRY 

31 

SETISSW 

FC-3220 

CALLED 

5»  17, 18,19,20 

SETMINDB 

FC-3600 

CALLED 

26 

SETMINDB 

FC-3800 

CALLED 

4 

SETMINDB 

FC-3810 

CALLED 

2 

SETMINDB 

FC-3950 

CALLED 

40 

SETRRECR 

FC-3600 

CALLED 

36 

SETRRECR 

FC-3980 

CALLED 

2 

SETTRKF 

FC-3210 

CALLED 

13,21 

SGNAGREE 

FC-3150 

ENTRY 

3 

SGNAGREE 

FC-3355 

CALLED 

3 

SGNAGREE 

FC-3510 

CALLED 

46 

SHIFTRl 

FC-3710 

CALLED 

3,4 

SHIFTRl 

FC-3760 

ENTRY 

10 

SHORTMP 

FC-3950 

CALLED 

51 

SHORTMP2 

FC-3935 

CALLED 

19 

SIGNMPAC 

FC-3150 

ENTRY 

14 

SIGNMPAC 

FC-3355 

CALLED 

4 

SIGNMPAC 

FC-3370 

CALLED 

9 

SIGNMPAC 

FC-3430 

CALLED 

7,16, 17, 18, 19 

SIGNMPAC 

FC-3935 

CALLED 

14 

SINE 

FC-3320 

CALLED 

4 

SLAPl 

FC-3010 

ENTRY 

2 

SLOPESW 

FC-3360 

S-12»1A  C-37 

T-19,37 

SNUFFBIT 

FC-3470 

T-63 

SNUFFER 

FC-3^40 

S-AO 

C-40 

SNUFFOUT 

FC-3440 

ENTRY 

39 

SOLNSW 

FC-3360 

S-14t20t22»24  C-12tl5,25 

SPARCSIN 

FC-3960 

ENTRY 

37 

SPCOS 

FC-3160 

ENTRY 

2 

SPCOS 

FC-3210 

CALLED 

58,59 

SPCOS 

FC-3320 

CALLED 

7 

SPSIN 

FC-3160 

ENTRY 

2 

SPSIN 

FC-3210 

CALLED 

57,58 

SPSIN 

FC-3320 

CALLED 

6 

SPSRCS 

FC-3470 

ENTRY 

80 

SRCHOPTN 

FC-3600 

S-49 

C-15 

T-18,43,49 

SR30.  1 

FC-3770 

ENTRY 

15 

STARTDAP 

FC-3440 

ENTRY 

14 

STATEFLG 

FC-3140 

C-14 

STATEFLG 

FC-3350 

S-3,5»24  C-3 

STATEFLG 

FC-3355 

S-37 

C-2,40 

T-39 

STATEFLG 

FC-3600 

S-20t72 

,73,80 

STATEINT 

FC-3350 

ENTRY 

2 

STATINTl 

FC-3350 

ENTRY 

2 

STCLOKl 

FC-3840 

ENTRY 

12 

STCLOK2 

FC-3900 

CALLED 

21 

STEERING 

FC-3820 

ENTRY 

2 

STEERSW 

FC-3810 

C-9 

T-9 

STEERSW 

FC-3850 

S-12 

C-11 

STEERSW 

FC-3900 

T-25 

STOPRATE 

FC-3430 

ENTRY 

14 

STOPRATE 

FC-3600 

CALLED 

3 

STOPRATE 

FC-3820 

CALLED 

2 

STOPRATE 

FC-3850 

CALLED 

13 

STOPRATE 

FC-3900 

CALLED 

26,46,49 

STOPRATE 

FC-3950 

CALLED 

35 

STOPRATE 

FC-3960 

CALLED  22 

STRTGYRO 

FC-3220 

ENTRY  24 

SUBDI VDE 

FC-3470 

CALLED  8,9,10 

SUBDVDE 

FC-3440 

ENTRY  36 

SUPDACAL 

FC-3060 

ENTRY  4 

SUPERSW 

FC-3060 

ENTRY  7 

SURFDISP 

FC-3520 

ENTRY  42 

SURFFLAG 

FC-3350 

T-4 

SURFFLAG 

FC-3530 

T-1 

SURFFLAG 

FC-3600 

T-5, 18,20,21,36,8 

SURFFLAG 

FC-3610 

T-4 

SURFFLAG 

FC-3850 

T-9 

SURFFLAG 

FC-3910 

S-2 

SURFFLAG 

FC-3950 

C-12 

SURF JOB 

FC-3530 

ENTRY  27 

SURFLINE 

FC-3520 

ENTRY  34 

SVOWNl 

FC-3605 

CALLED  3 

SWANDI SP 

FC-3a40 

S-10 

SWANOI SP 

FC-3fi50 

C-14 

SWCALL 

FC-3060 

ENTRY  2 

SWRETURN 

FC-3060 

ENTRY  3 

SWRETURN 

FC-3230 

CALLED  8 

S30.  1 

FC-3700 

ENTRY  4 

S32. IFl 

FC-3720 

S-13 

C-12  T-i: 

S32. 1F2 

FC-3720 

S-12 

C-19  T-1' 

S32,1F3A 

FC-3720 

S-12 

T-l< 

S32. 1F3B 

FC-3720 

S-19,20 

S32/33.X 

FC-3720 

ENTRY  9 

S32/33. 1 

FC-3720 

ENTRY  6 

S32/33. 1 

FC-3730 

CALLED  4 

S33/34. 1 

FC-3730 

CALLED  3 

S33/3A. 1 

FC-3740 

ENTRY  9 

S34/35. 1 

FC-3750 

CALLED  2 

S3A/35.2 

FC-3740 

ENTRY  17 

S34/35.2 

FC-3750 

CALLED  3 

S34/35.5 

FC-3750 

CALLED  3 

S40.  1 

FC-3800 

ENTRY  5 

S40. 1 

FC-3810 

CALLED  2 

S40.2, 3 

FC-3800 

ENTRY  7 

S40.2,3 

FC-3810 

CALLED  2 

S41. 1 

FC-3810 

ENTRY  5 

S41 . 1 

FC-3830 

CALLED  5 

S52.2 

FC-3510 

ENTRY  17 

S52.3 

FC-3510 

ENTRY  13 

TASKOVER 

FC-3040 

ENTRY  16 

TESTLOOP 

FC-3355 

ENTRY  2 

TESTXACT 

FC-3100 

ENTRY  3 

TESTXACT 

FC-3120 

CALLED  2 

TESTXACT 

FC-3240 

CALLED  2 

TESTXACT 

FC-3280 

CALLED  2 

TESTXACT 

FC-3410 

CALLED  2 

TESTXACT 

FC-3435 

CALLED  2 

TESTXACT 

FC-3440 

CALLED  2 

TESTXACT 

FC-3600 

CALLED  4,7 

TESTXACT 

FC-3770 

CALLED  2 

TESTXACT 

FC-3780 

CALLED  2 

TESTXACT 

FC-3790 

CALLED  2 

5,10 

,21 
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TESTXACT 

FC-3935 

CALLED 

2 

TFFCONIC 

FC-3370 

ENTRY 

3 

TFFCONMU 
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